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GENERAL 

1.  PURPOSE;  The  purpose  of  this  Wartime  Requirements  for  Ammunition, 
Materiel,  and  Personnel  (WARRAMP)  Materiel  Postprocessor  (MPP)  Programmer's 
Maintenance  Manual  (PMM)  is  to  document,  describe  and  illustrate  the  WARRAMP 
MPP  at  a  sufficient  level  of  detail  so  that  programmers  charged  with  the  system's 
maintenance  can  quickly  understand  the  purpose  and  operation  of  the  system, 
isolate  problems  or  areas  which  require  modification,  make  corrections  and  put 
the  system  back  into  operation.  Documentation  for  each  of  the  19  utility 
programs  which  constitute  the  MPP  includes,  a  description,  purpose  and  organiza¬ 
tion  of  the  utility,  a  flow  chart,  example  program  listings,  a  discussion  of  the 
input  and  outputs  used  by  the  utility  with  examples  of  each,  a  variable  dictionary 
which  identifies  and  describes  each  of  the  variables  used  in  the  utility,  a  discus¬ 
sion  of  the  environment  in  which  the  utility  operates  and  the  maintenance  proce¬ 
dures  to  be  followed. 

2.  STANDARDS:  As  noted  in  the  previous  paragraph,  the  MPP  consists  of  19 
individual  computer  programs.  For  the  most  part,  FORTRAN  IV  is  the  standard 
programming  language  used,  as  can  be  seen  from  Table  1.2.1.  However,  several 
utilities  have  used  ASCII  FORTRAN,  two  in  FORTRAN  II,  and  in  one  case 
SIMSCRIPT  II.  5  within  CAA.  These  utility  programs  have  evolved  over  several 
years  with  the  evolution  and  growth  of  the  AMMO-RATES  methodology  and  the 
WARRAMP  methodology. 

Recompilation  of  the  MPP  programs  will  require  the  use  of  the  different 
compilers  in  the  computer  system  library  as  follows: 

FORTRAN  IV  and  V  @  FOR,  options  SI,  RO 

ASCII  FORTRAN  @  FTN,  options  SI,  RO 

SIMSCRIPT  II.  5  @  SIM25,  options  SI,  RO 

Refer  to  UNIVAC  Publication  (UP)  8244.1,  the  ASCII  FORTRAN  Programmers 
Reference  Manual;  or  UP  4060,  the  FORTRAN  V  (and  IV  with  extensions)  Pro¬ 
grammers  Reference  Manual;  or  the  SIMSCRIPT  II. 5  User's  Manual  for  the 
UNIVAC  1100  Series  Computer  Systems  for  the  specific  compiler  options,  re¬ 
compilation  procedures,  and  compiler  error  diagnostics.  In  the  notation  above  SI 
refers  to  the  Source-code  input  file-name,  element-name.  RO  refers  to  the 
Relocatable  Object  code  program  elements.  After  re-compilation,  the  object 
code  must  be  collected  into  an  executable  program  by  employing  the  @MAP 
system  processor. 

In  general  these  utilities  produce  one  output  file  (element).  This  file  is  normally 
given  the  same  title  as  the  utility  which  produced  it.  For  example,  the  RAM/- 
MATRIX  output  file  is  produced  by  the  RAM/MATRIX  utility.  For  the  most  part 
variable  names  used  within  the  utilities  are  given  self-explanatory  names.  How¬ 
ever,  in  all  cases  in  this  document  a  variable  dictionary  is  provided  for  each 
utility.  In  many  cases  arrays  or  matrices  are  used  to  hold  data  read  into  the 
utility  from  input  files.  This  feature  centralizes  the  reading  of  data  within  the 
utility.  Similarly,  data  written  into  output  files  can  normally  be  found  to  initially 


reside  in  arrays. 


The  data  formats  for  the  files  are  discussed  in  Volume  I  of  this  set;  therefore  they 
are  not  repeated  in  this  volume.  The  programmer  should  refer  to  volume  I  for  the 
information. 

3.  PROJECT  REFERENCES!  Project  referenc  as  can  be  found  in  Appendix  A. 
This  documentation  effort  was  achieved  throufj  contractor  support  to  USACAA, 
by  CACI,  Inc.,  under  contract  MDA903-80-D-O668.  The  Contracting  Officers 
Technical  Representative  (COTR)  was  Mr.  Hugh  Jones,  Models  Group, 
Methodology  and  Computer  Support  Directorate,  USACAA.  This  manual  is  one  of 
a  series  to  document  the  WARRAMP  Methodology's  computer  software.  Volume  I 
of  the  series  contains  the  user's  portion  of  the  instructions  on  this  software. 

4,  TERMS  and  ABBREVIATIONS:  Terms  and  abbreviations  are  used  through¬ 
out  to  facilitate  communications  of  sets  of  words  (acronyms)  and  analytical 
expressions  common  to  the  methodology  and  military  operations  research.  A 
complete  listing  may  be  found  in  Appendix  B  of  this  manual.  In  addition,  the  full 
statement  of  the  expression  followed  by  the  acronym  or  term  in  closed  parenthesis 
is  used  throughout  the  manual  on  the  first  occurence  of  its  use. 
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COMPILER  REQUIREMENTS 


Programming  Language 


-FORTRAN- 


UTILITY 


IV 


ASCII* 


SIMSCRIPT  It.  5** 


ELCON 

WIMP 

LEA/TAPE 

1TM1D/TEMP 

ITMID/REC-A 

TOE/lSTRun 

SCRUB/TOE 

TOE/ADD-PLTS 

RAM/MATRIX 

TOTAL/UNITS 

TOTAL  CATEGORY 

SEARCH/ENGAGEREP 

CE  M/DATA 

CEM/LOSSES 

COUNT/DIVISIONS 

CONTROL/COMPILER 

final/report 

WIMP/TOE-IN 

WIMP/LOSS-RATES 


X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


X 

X 

X 

X 


ir* 


ASCII  FORTRAN  LEVEL  9  COMPILER  INSTALLED  CAA,  2  APRIL  81 
SIMSCRIPT  11.5  VERSION  7.0  INSTALLED  3ULY,  1981 


Table  1.2.1 


Section  II 


SYSTEM  DESCRIPTION 

1.  GENERAL  DESCRIPTION  The  WARRAMP  Materiel  Postprocessor  is  the 
materiel  portion  of  the  WARRAMP  analytical  methodology.  It  exists  to  merge 
and  organize  combat  equipment  loss  data  from  historical  sources  and  the  combat 
simulation  modeling  sources.  Once  merged,  computations  are  performed  to 
produce  the  quantity  of  losses  of  combat  materiel  and  an  expression  of,  or  rate  of, 
loss  of  the  equipment  items  over  a  hypothesized  period  of  combct  (warfare) 
time.  The  produced  losses  and  respective  rate  of  loss  support  the  US  Armys 
operations  and  planning  functions  and  the  budgeting  process.  As  such,  the 
programs  documented  herein  are  unique  and  have  the  sole  application  of  support¬ 
ing  the  WARRAMP  methodology.  The  relationship  of  the  MPP  function  to 
WARRAMP  are  depicted  in  Figure  II.  LI.  The  MPP  major  components  are  high¬ 
lighted  with  a  heavy  border. 

2.  SECURITY  AND  PRIVACY!  The  individual  software  components  (programs) 
are  cataloged  as  indicated  under  the  detailed  descriptions  for  each  program.  In 
each  case,  they  are  cataloged  in  the  public  mode  for  user  access.  User's  are  asked 
not  to  modify  or  edit  (write)  in  the  program  files.  In  event  alteration  is  required 
for  a  specific  purpose,  a  potential  user  should  copy  the  program  to  a  file  under 
his/her  user  identification,  and  then  edit  the  file  as  desired.  In  event  of  error 
detection  during  use,  the  user  is  requested  to  note  the  error  by  program  line  and 
forward  the  proposed  correction  to  the  program  custodian,  so  that  the  record 
program  may  be  updated.  Test  (sample)  data,  either  input  or  output  and  the 
programs  contained  herein  are  unclassified.  Users  must  apply  the  appropriate 
security  classifications  to  their  data  files  and  are  responsible  ior  the  safequard  of 
printed  matter  accordingly.  Users  and  programmer  personnel  are  directed  to  the 
installation  computer  user’s  guide  for  the  appropriate  classification  levels. 
Throughout  the  manual,  reference  is  made  to  classified  data  files.  The  reference 
is  made  to  the  file  content,  not  the  classified  file  qualifier. 

The  evolution  of  the  WARRAMP  methodology  has  necessitated  changes  in  the 
MPP  software.  This  documentation  supports  and  facilitates  such  change.  It  is 
incumbent  on  the  program  custodian  to  verify  and  validate  changes  made  to  the 
record  versions  of  the  programs  and  disseminate  changes  to  this  manual. 

3.  SYSTEM  APPLICATION;  Sections  I  and  II  of  the  MPP  User's  Manual 
(Volume  I  of  the  WARRAMP  documentation  set)  provides  a  comprehensive 
description  of  the  Materiel  Postprocessor  methodology  as  it  relates  to 
WARRAMP.  The  relationships  of  the  MPP  utility  programs  are  presented  in 
figures  11.3.1  through  11.3,9.  The  MPP  processes  are  interrelated  as  depicted  in  the 
figures;  the  output  of  one  program  becomes  the  input  to  another  program.  The 
MPP  data  flow  is  presented  in  Table  11.3.1  and  assists  in  understanding  the  MPP 
processes.  The  specific  functions  of  the  MPP  utility  programs  are  addressed  in 
Section  III  under  individual  chapters  by  utility  program. 
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Figure  11.3.1 
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Figure  II.  3. 3 
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SECTION  III 


Chapter  l 

EQUIPMENT  LOSS  CONSOLIDATOR  (ELCON) 

1.1  DESCRIPTION  OF  PROCESSING:  A  complete  discussion  of  the 

previously  documented  ELCON  process  can  be  found  in  superseded  document 
CAA-D-79-3,  August,  1979,  entitled  "Equipment  Loss  Consolidator  (ELCON)"  as 
referenced  in  Appendix  A  (referenced).  The  current  documentation  reference  is 
item  Y  in  Appendix  A. 

1.1.1  PURPOSE/FUNCTION;  The  purpose  of  the  Equipment  Loss  Consoli¬ 
dator  (ELCON)  is  to  combine  equipment  loss  data  from  historical  and  computer 
simulation  sources  with  current  equipment  deployment  and  vulnerability  informa¬ 
tion,  as  calculated  in  the  MPP,  in  order  to  compute  expected  monthly  loss  rates 
for  a  list  of  specific  equipment  items. 

1.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  HI.  1.1.  The  general  logic  flow  within  the  utility  is 
the  flow  chart,  FIGURE  III.  1.2.  An  actual  copy  of  the  source  code  listing  is 
contained  in  FIGURE  III.  1.3. 

1.1. 2. A  INPUT  and  Data  Base:  The  ELCON  program  requires  three  data  input 
file  elements.  These  Tiles  are  the  Historical  SYMWAR  Factors  file,  ITMID/FINAL 
file  and  the  CONTROL/XX  file.  Each  file  is  discussed  below: 

o  Historical  SYMWAR  Factors  file  -  The  equipment  loss  data  found  in  this 
file  is  derived  from  analysis  of  WWII  and  Korean  War  experiences.  This 
file  is  cataloged  under  the  program  file  82HISFAC.  within  the  system. 
As  the  data  here  reflect  historical  experiences  it  is  static,  thus  the  user 
does  not  update  it.  A  detailed  explanation  of  the  file  structure,  record 
layouts  and  data  examples  can  be  found  in  reference  item  Y,  or  the 
USACAA  document  CAA-D-79-3,  ELCON,  pages  4-1,  4-2,  and  C-l 
through  C-4, 

o  ITMID/FINAL  -  This  file  contains  data  which  describes  each  type  of 
equipment  in  the  battle  area  giving  for  example,  its  LINCODE,  nomen¬ 
clature,  vulnerability  category,  etc.  Also  provided  is  the  quantity  of 
this  item  authorized  for  each  of  the  seven  time  periods  of  the  study  and 
the  density  or  distribution  fraction  of  this  item  within  each  of  the  five 
zones  of  the  combat  area  for  each  of  the  seven  time  periods.  This  file 
is  a  product  of  the  ITMID/REC-A  utility.  Figures  III.  1.5  presents  the 
data  example  of  the  file. 

o  CONTROL-XX  -  This  file  contains  such  information  as  run  control  data, 
the  equipment  loss  information  provided  by  the  CEM  combat  simulation 
(rather  than  historical  experiences),  Blue  MIE  losses  to  Red  artillery, 
Blue  Division  strengths,  etc.  This  file  is  a  product  of  the  CONTROL/- 
COMPIl.ER  utility.  A  complete  discussion  of  this  file  can  be  found  in 
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the  CONTROL/COMPILER,  Chapter  16  of  this  document.  The  data  can 
be  seen  in  Figure  III.  1.6. 


1.1. 2.B  OUTPUT  Data  and  Data  Files:  The  ELCON  program  produces  four 
output  files.  These  files  are  the  HOLD-XX,  RATES-XX/SEC-1,  RATES-XX/- 
MONTHLY-WOL,  and  RATES-XX/MONTHLY-WL.  The  XX  portion  of  the  file 
name  will  be  replaced  by  the  appropriate  CF.M  Run  Control  Number  obtained  from 
the  CEM  Operator/Analyst.  The  user  will  change  the  file  names  to  reflect  this 
CEM  run  control  number  in  the  runstream  using  the  system  editor.  Each  output 
file  will  be  discussed  below. 

o  HOLD-XX  -  This  is  an  interim  file  produced  by  the  utility  which 
contains  the  LOSS  MATRIX  for  each  period,  (Figure  III.  1.4)  The  file  is 
listed  in  machine  readable  code,  not  field  data.  The  utility  only  creates 
this  matrix  if  the  variable  WRITE  F  is  equal  to  Zero.  If  WRITE  F  is  not 
equal  to  0  an  existing  matrix  will  be  used  by  the  utility.  The  WRITE  F 
variable  is  read  into  the  utility  from  the  run  parameter  record  (i.e.  2nd 
record)  of  the  CONTROL/XX  file.  In  creating  and  manipulating  the 
matrix  the  utility  uses  features  and  commands  outside  of  FORTRAN 
which  are  unique  to  UNIVAC  EXEC  8  such  as  DEFINE,  and  FIND  to 
construct  the  matrix  the  utility: 

oo  Calculates  the  maximum  number  of  records  that  will  be  held  in 
the  matrix  (line  179). 

KFSIZE  =  MAXITM  *  NPER  *  4 
Where: 

KFSIZE  =  number  of  records 

MAX  ITM  =  maximum  number  of  equipment  items  being  studied. 
NPER  =  number  of  time  periods 
4  -  number  of  combat  postures. 

oo  Establish  the  file  on  Unit  2  (line  180).  DEFINE  FILE  2  as 
(KFSIZE,  10,  U,  IVAR) 

Where: 

KFSIZE  =  number  of  records 

10  =  record  size  in  words.  There  are  10  causes  that  losses 

can  be  attributed  to, 

U  =  The  records  will  be  unformatted 
IVAR  =  The  value  stored  in  this  variable  will  contain  the 
pointer  to  the  current  record. 

oo  Calculate  the  appropriate  position  within  the  file  where  the  next 
record  is  to  be  written  (Line  234). 

ILOC  =  (ISEQ-l)  *  NPER  *  4  +  (IPER-1)  *  4+1 
Where: 

ILOC  =  The  location  within  the  file  where  the  next  loss  record 
will  be  written. 

1SEQ  =  The  sequence  number  assigned  to  each  equipment  item. 
This  value  is  read  in  from  the  ITMID/FINAL  file. 

NPER  =  Number  Time  periods  in  the  study. 

4  =  The  number  of  combat  postures. 
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IPER  =  The  number  of  the  current  period  being  processed, 
oo  After  calculating  the  pointer  ILOC  the  utility  FINDS  the  record, 
oo  Calculates  the  entries  for  the  record 
oo  Writes  the  record  to  the  file 

oo  Sets  ILOC  equal  to  the  returned  pointer  found  in  IV  AR. 

o  RATES-XX/SEC-1  -  This  file  will  be  produced  only  if  the  PRINT  INDI¬ 
CATOR,  i.e.,  Columns  31-35  of  the  Run  Parameters  Record  in  the 
CONTROL-XX  file  is  set  to  either  "0"  or  "1".  If  it  is  set  to  "-  1",  this 
file  will  not  be  produced.  This  file  is  used  to  collect  output  for  the 
ELCON  program  and  format  it  for  printing,  so  that  it  is  understandable 
by  the  combat  analyst.  As  noted  above,  the  user  will  have  the  option  to 
specify  the  level  of  detail  that  will  be  contained  in  the  file.  If  the  user 
enters  a  ’'l"  in  the  Print  Indicator  file  of  the  Run  Parameter  Record  the 
user  will  obtain  a  detailed  report  as  output.  This  report  will  contain: 

oo  A  replay  of  the  CONTROL-XX  file  that  was  used  as  input  to  the 
program  with  the  addition  of  heading  information  explaining  the 
data  which  follows  it. 

oo  A  detailed  analysis  of  the  loss  rates  consolidated  from  the  histor¬ 
ical  data  and  the  results  of  the  theater  simulation  for  each  piece 
of  major  equipment  being  played  in  the  study.  Included  here  is  the 
density  profiles,  loss  rates  from  each  of  the  10  historical  causes, 
losses  in  depot,  etc.  A  complete  example  of  a  typical  report  can 
be  found  in  the  referenced  ELCON  documentation. 

If  the  user  enters  a  "O"  into  the  Print  Indicator  field,  a  shortened 
version  of  the  file  will  be  prepared.  This  version  will  include  the 
formatted  replay  of  the  CONTROL-XX  file  identical  to  that  portion  of 
the  detailed  output  discussed  above  plus  an  item  by  item,  one-line 
summary  of  each  piece  of  equipment  line  code,  name,  WARF  set  (which 
is  defined  as  a  continuous  period  of  time  v,  ithin  the  model  delineated  by 
a  start  period  and  an  end  period)  and  the  loss  rates  broken  out  by  in¬ 
theater  losses  and  intertheater  losses.  An  example  of  this  output  can 
also  be  found  in  the  reference  document,  pages  D-13  through  D-15. 

o  RATES-XX/MONTHLY-WOL  -  This  file  is  always  produced  by  the 
ELCON  program.  The  file  details  for  each  item  of  equipment  in  the 
study  the  monthly  in-theater  loss  rates  (excluding  LOC  and  depot  logis¬ 
tic  or  shipping  losses)  for  each  item  or  time  frame  specified  by  the 
user.  Figure  III.  1.8  presents  example  of  the  data  found  in  the  file. 

o  RATES-XX/MONTHLY-WL  -  This  file  is  similar  to  the  above  WOL  file 
except  that  it  contains  the  total  loss  rates  for  LOC,  depot  and  inter¬ 
theater  logistic  (shipping)  losses  for  each  item  identified  by  the  user. 
This  file  always  is  produced  by  the  ELCON  utility.  Figure  III.  1.9  depicts 
the  example  of  the  data  contained  in  the  file. 
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These  three  output  files  will  be  used  in  conjunction  with  the  ITMID/FINAL  file, 
produced  by  the  ITMID/REC-A  utility  (Chapter  5)  to  produce  the  Final/Report 
which  expresses  loss  rates  in  daily  terms. 

1*1.2.C  DATA  ELEMENT  DICTIONARY:  The  following  section  identifies  and 
defines  the  variables  used  in  this  utility. 


Name 


Definition 


IHIS 


IN 


IO 


ZONFAC 


CLRAT 


REARL 


This  integer  variable  is  used  in  READ  statements  to 
identify  the  proper  unit  from  which  the  input  file  is 
read.  In  this  case  the  variable  is  set  to  4  and  from  the 
runstream  unit  4  has  been  assigned  to  the  **HISFAC 
file. 

This  integer  variable  is  used  in  READ  statements  to 
identify  the  second  unit  from  which  input  data  will  be 
supplied.  In  is  set  to  5  and  from  the  runstream  unit  5 
has  been  assigned  the  CONTROL/COMPILER  and 
ITMID/F1NAL  files. 

An  integer  variable  used  in  WRITE  statements  to 
identify  the  unit  to  which  output  is  directed.  IO  is  set 
to  6.  From  the  runstream  unit  6  is  assigned  to  the 
output  file  RATES-XX/SEC-1.  Do  not  confuse  IO  with 
10. 

This  is  a  2  dimension  array  in  the  utility  which  holds 
the  weighting  factors  used  in  loss  computations.  The 
first  dimension  identifies  each  of  the  five  zones  used 
in  describing  the  combat  area,  the  second  dimension 
identifies  each  of  the  10  loss  causes.  Entries  in  matrix 
are  read  from  the  *  *  HISFAC  file. 

This  is  a  3  dimensional  matrix  used  by  utility  to 
organize  and  hold  loss  rates  read  from  the  *  *HISFAC 
input  file.  The  first  dimension  identifies  each  of  the 
10  causes  of  loss,  the  second  dimension  identifies  each 
of  the  four  combat  postures;  the  third  dimension  each 
of  the  36  historical  classes  used  to  categorize  losses 
derived  from  historical  sources. 

This  is  a  2  dimensional  matrix  which  is  used  to 
organize  and  hold  the  loss  rates  in  two  combat  zones 
furthest  from  the  FEBA  (i.e.,  zones  4  and  5)  or  the 
REAR.  The  first  dimension  identifies  each  of  the  36 
historical  classes;  the  second  dimension  identifies  each 
of  the  4  postures  in  which  the  unit  is  configured.  Loss 
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NPPRES 

IWUL 

IPOS 

KFSIZE 

KATOEM 

ITEST 

FRFWD 


IWP 


NDPER 


rates  in  these  last  two  combat  zones  are  not  currently 
generated  from  combat  simulations.  Thus  loss  data 
generated  from  World  War  II,  Korea  and  Vietnam 
experiences  are  used  to  estimate  these  depot  losses. 
These  loss  rates  do  not  include  losses  from  MINES, 
WEAROUT  or  ACCIDENT. 

This  run-parameter  variable  denotes  the  number  of 
time  periods  for  which  replacement  equipment  is  pre¬ 
stocked.  This  value  is  read  from  the  input  file  CON¬ 
TROL/COMPILER. 

This  is  an  integer  variable  used  to  identify  each  of  the 
22  artillery  vulnerability  classes  into  which  items  of 
equipment  are  placed. 

This  is  an  integer  variable  used  to  identify  each  of  the 
four  combat  postures. 

This  variable  is  calculated  within  the  program  in  order 
to  determine  the  size  of  the  output  file  HOLD-XX. 
DFSIZE  =  Maximum  number  of  items  considered  times 
the  number  of  distinct  time  per  iods  times  the  number 
of  combat  postures.  (KFSIZE  =  MXITM  *  NPER  *  4). 

This  is  an  integer  variable  read  from  the  ITMID/FINAL 
file.  This  entry  is  a  code  assigned  a  specific  item  of 
equipment  which  categorizes  as  a  specific  type  of 
equipment  for  losses  from  the  CEM  Theater  Model. 

This  is  a  temporary  integer  variable  set  to  one  less 
than  the  IPER  value. 

This  variable  is  used  as  an  array.  Each  occurrence  of 
the  array  reflects  for  each  time  period  in  the  study  the 
fraction  of  the  authorized  equipment  found  in  the 
forward  three  combat  zones.  This  variable  is 
calculated  by  the  utility  using  the  items  DENSPRO 
array. 

This  is  an  integer  variable  established  as  an  array 
within  the  utility.  Entries  in  the  array  reflects  the 
first  time  period  of  specific  WARF  sets.  As  is 
currently  configured  up  to  20  WARF  sets  can  be 
specified.  This  data  is  read  in  from  the  CONTROL/XX 
file  on  line  134. 

This  is  an  integer  variable  which  is  used  as  an  array  to 
specify  the  number  of  days  in  each  time  period  of  the 
study.  This  data  is  read  from  the  CONTROL/XX  file 
on  line  128. 
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KF1RST 

KLA5T  These  two  integer  variables  are  set  to  the  current 

array  valves  found  in  IWP  and  LWP  respectively  and 
are  used  as  parameters  in  following  DO-LOOPs. 

1NOSHP  An  integer  variable  used  in  WRITE  statements  to 

identify  the  unit  to  which  output  is  directed.  INOSHP 
is  set  to  7.  From  the  runstream  unit  7  is  assigned  to 
the  output  file  RATES-XX/MONTHLY-WOL. 

IWSHP  An  integer  variable  used  in  WRITE  statements  to 

identify  the  unit  to  which  output  is  directed.  IWSHP  is 
set  to  8.  From  the  runstream  unit  8  is  assigned  to  the 
output  file  RATES-XX/MONTHLY-WL. 

TCAUS  A  12  character  alphanumeric  explanation  of  the  cause 

of  the  loss.  TCAUS  is  dimensioned  as  an  array  of  10 
occurrences.  The  10  loss  causes  are: 

1  -  DIRECT  FIRE 

2  -  AREA  FIRE 

3  -  MINES 

4  -  BOMBING 

5  -  STRAFFING 

6  -  ABANDONMENT 

7  - WEAROUT 

8  -  ACCIDL.mT 

9  -  PILFERAGE 

10  -  GUERRILLA 

DEPFAC  This  is  a  variable  used  to  accumulate  losses  of  this 

item  suffered  during  inter-theater  transit  of  replace¬ 
ment  equipment  in  the  rear  area.  The  value 
accumulated  is  the  product  of  the  losses  in  the  rear 
area  for  this  item’s  historical  class  and  the  current 
combat  posture  multiplied  by  the  loss  rate  for  a 
specific  period  and  current  combat  posture  suffered 
during  inter-theater  transit  of  replacement 
equipment.  Unit  of  measure  is  items  of  equipment. 

TOTAL  A  variable  used  in  the  utility  to  accumulate  the  total 

losses  suffered  by  this  item.  Unit  of  measure  is 
equipments. 

PCTDEP  This  variable  is  calculated  by  the  utility  on  line  405. 

The  value  of  this  variable  reflects  the  monthly  depot 
percentage  loss  rate  for  this  item. 

FRUNL  This  variable  is  calculated  by  the  utility  on  line  406 

and  reflects  monthly  unit  loss  rates  for  this  item 
normalized  to  days  of  exposure.  Unit  of  measure, 
fraction  of  losses  per  month,  of  this  item. 
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PCTUNL 


This  variable  is  simply  FRUNL  expressed  as  a 
percentage. 


PCTRPL  This  variable  is  calculated  on  line  427  of  the  utility 

and  reflects  the  loss  percentage  rate  suffered  by  this 
item  during  inter  theater  transportation. 

XXX  A  temporary  variable  which  expresses  for,  in  one 

instance  (line  382),  the  ratio  of  the  loss  rate  exper¬ 
ienced  during  inter-theater  transit  of  replacement 
parts  for  a  specific  period  (RPLOS(IPER))  divided  by 
the  NON-loss  Rate  (i.e.  1  -RLOS).  In  another  instance 
it  represents  ratio  of  air  losses,  (RAIR)  divided  by  non¬ 
losses.  It  assumes  the  loss  rate  will  never  equal  1. 
XXX  may  take  on  val>jes  from  0  to  100. 

YYY  Same  as  XXX  except  it  expresses  the  ratio  for  sea 

losses  (RSEA)  divided  by  non  losses. 

XLOC  This  is  the  loss  rate  for  inter-theater  transfer.  This 

rate  is  calculated  for  each  period  during  a  WARF  set 
for  each  item.  For  each  period  XLOC  is  calculated  by: 

Multiplying  the  item  Density  for  this  period  by 
the  number  of  days  in  the  period.  The  resulting 
product  will  be  the  Days  of  exposure  for  this 
period  for  this  item.  This  product  is  then  multi¬ 
plied  by  the  XXX  ratio.  This  is  the  ratio  of  the 
loss  rate  of  replacement  equipment  on  the  inter¬ 
theater  LOC  for  this  period,  divided  by  the  NON- 
loss  rate  of  this  item  in  this  period.  This 
resulting  product  is  then  divided  by  the  DAYS  of 
Exposure  for  this  item  for  the  entire  WARF  set. 

If  the  loss  rates  are  relatively  small  the  XXX 
ratio  will  not  vary  from  the  actual  loss  rate, 
however,  as  the  rate  grows  larger,  the  XXX  ratio 
will  grow  dramatically.  Refer  to  the  following 


table; 

LOSS  RATE 

XXX 

CHANGE 

.001 

.001001 

+0.000001 

.01 

.010101 

+0.000101 

LOSS  RATE 

XXX 

CHANGE 

.1 

.mill 

+0.011111 

.2 

.25 

+0.05 

.3 

.429 

+0.129 

23 


.5 

1.0 

+0.5 

.7 

2.33 

+  1.63 

.8 

4.0 

+3.2 

.99 

99.0 

+98.01 

1.2  OPERATING  ENVIRONMENT;  This  program  is  implemented  on  the 

UNIVAC  EXECUT1VE-S  operating  system. 

1.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  FORTRAN  IV 
compiler  and  the  system  editor. 

1.2.2  I/O  DEVICES:  The  utility  will  receive  its  input  from  files  resident  on 
disk  and  in  turn  writes  its  output  to  disk. 

1.3  MAINTENANCE  PROCEDURES:  The  program  is  maintained  on  the 

system  by  the  MPP  analyst. 

1.3.1  PROGRAMMING  CONVENTIONS:  Standard  FORTRAN  programming 
conventions  are  followed. 

1.3.2  VERIFICATION  PROCEDURES:  Program  verification  is  achieved 
through  visual  inspection  of  and  the  hand  calculations  of  specific  data  gleaned 
from  a  sample  program  run. 

1.3.3  ERROR  CORRECTION  PROCEDURES;  The  utility  is  structured  to 
detect  4  error  conditions  during  the  reading  of  input  data.  These  error  conditions 
their  causes  and  solutions  are  detailed  below. 

ERROR  I 

Message:  SEQUENCE  //  (item  seq.no.)  LARGER  THAN  MAX  SPECIFIED 

Cause:  The  sequence  number  assigned  to  this  equipment  item  is  greater 

than  the  maximum  specified  by  the  user  in  the  second  field  of  the 
Run  Parameter  Record  of  the  CONTROL-XX  file. 

Solution:  Using  the  system  editor  access  the  ITMID/FINAL  file  and 

determine  the  sequence  number  of  the  last  equipment  item  of  the 
file.  This  number  is  denoted  by  the  last  field  of  the  "A"  or  header 
record  of  the  equipment  item.  With  this  number  again  using  the 
system  editor,  access  the  Run  Parameter  Record  of  the 
CONTROL-XX  file  and  change  the  maximum  sequence  number. 

ERROR  II 

Message:  SEQUENCE  //  (item  seq.  no.)  MARKED  AS  CEM  ITEM  W/O 

CAT  CEM 

Cause:  The  header  or  "A"  record  of  the  item  of  equipment  in  the  ITMID/- 

F1NAL  file  indicates  that  the  combat  losses  for  this  item  will 
come  from  CEM  but  the  CEM  category  used  to  identify  the  type 
of  equipment  for  losses  from  the  theater  model  (CEM)  has  not 
been  specified. 
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Solutions  Notify  CSSEM  Operator/Analyst  of  discrepancy.  If  in  fact  this 

item  is  a  CEM  item,  user  must  determine  the  appropriate  CEM 
category  and,  using  the  system  editor,  enter  in  the  appropriate 
CEM  category  type  code  for  this  item  in  th  ■  third  field  (i.e., 
positions  40-41, left  justified)  of  the  item's  header  record  of  the 
ITM1D/FINAL  file. 

If  it  is  determined  that  the  item  is  not  a  CEM  item  the  user  must 
again  access  the  header  record  of  the  item  in  the  ITMID/F1NAL 
file  and  change  the  last  field  (i.e.,  positions  53-54,  left  justified) 
to  a  2  (if  combat  losses  are  from  artillery)  or  a  3  (if  combat  losses 
are  from  historical  data). 

ERROR  III 

Message:  SEQUENCE  //  (Item  seq.  no.)  MARKED  AS  ARTY  ITM  W/O 

CATART 

Cause:  The  header  or  "A"  record  of  the  item  in  the  ITMID/FINAL  file  has 

indicated  in  the  ninth  field  (i.e.,  positions  53-54)  that  the  losses  of 
this  item  will  be  from  artillery  but  no  artillery  vulnerability  class 
has  been  specified  for  the  item  in  the  fourth  field  of  the  record 
(i.e.,  positions  42-43). 

Solution:  Determine  whether  or  not  losses  for  this  item  are  in  fact  to  be 

determined  by  artillery.  If  not  using  the  editor,  change  the  ninth 
field  (i.e.,  positions  53-54,  left  justified)  to  the  appropriate  loss 
code  1  =  theater  simulation  (CEM);  3  =  historical. 

If  the  loss  is  to  be  from  artillery,  determine  the  appropriate 
vulnerability  category  for  the  item  from  the  22  available  and 
using  the  editor  enter  it  into  the  fourth  field  on  the  header  record 
(i.e.,  positions  42-43,  left  justified). 

ERROR  IV 

Message:  ITEM  #  (item  seq.  no.)  HAS  ILLEGAL  HISTORICAL  CLASS 

Cause:  For  the  program  to  reach  this  error  message  the  ninth  field  (posi¬ 

tions  53-54)  of  the  header  record  of  the  ITMID/FINAL  file  must  be 
set  to  3  (i.e.,  all  losses  are  from  history)  and  the  historical  class 
identifier  is  not  between  1  and  36  and  is  thus  illegal.  This  error, 
unlike  the  other  3,  will  not  cause  the  program  to  stop  execution. 

Solution:  Using  the  Item  Sequence  Number  and  the  system  editior  examine 

the  header  record  for  this  item,  determine  the  appropriate  histor¬ 
ical  class  (i.e.,  a  number  from  1  to  36)  and  enter  it  into  columns 
53-54  right  justifying  the  entry. 

1.3.4  Special  Maintenance  Procedures:  There  are  no  established  special  or 

unique  maintenance  procedures  for  the  program. 
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UNCLASSIFIEC***FILE  NAMrj{2XQT  ELEMENT  NAMrtELC0N/3«»»UNCLASSXFTED 


1 :c »•••*****•*•••*•*••**«••••••••»••»«**•••••••*•**•* 

2  :c 

3:c  E  L  C  0  N  -  EOUIPMENT  LOSS  CONSOL  TDATOE 

4  :c 

s:c ...................................... 

e  :c 

7:c  *••*•••« *. DEFINITION  OE  VARIABLES 

8  :c 

9:c  -  TCAUS  -  ALPHANUMERIC  CAUSE  OE  LOSS. 

10:c  -  ZONFACI  Z  t  C )  -  THEATER  AREA  HEIGHT  FOR  ZONE  Z  AND  CAUSE  C. 
u:c  -  CLRAT(C.P.CL»  -  HISTORIC  (symwari  loss  rate  for  cause  C.  POSTURE 
12:c  P*  AND  HISTORIC  C AT  A  CLASSIFICATION  CL. 

13  tC  -  REARLICtPJ  -  LOSSES  IN  REAR  AREA  (ZONES  4  AND  5>  FOR  HISTORICAL 
14 :C  CLASS  C  IN  PERIOD  P.  USED  IN  CALCULATION  OF  LOSSES 

15 :c  OF  ITEMS  IN  DEPOTS  -  0 CES  NOT  INCLUDE  LOSSES  FROM 

1S!C  MINE  St  Wr  A  RO  UT  .  CR  ACCIDENT. 

17:c  -  NAME  -  RUN  TOENT1FIER  (UP  TO  3D  CHARACTERS) 
ie:c  -  N PE  R  -  8  OF  DISTINCT  TIME  PERIODS 

195C  -  MXITM  -  MAXIMUM  NUMBER  OF  EQUIPMENT  ITEMS  CONSIDERED. 

20:c  -  NDPFR (P )  -  8  OF  DAYS  IN  TIME  PERIOD  P. 

21 TC  -  NCEMCL  -  8  OF  C  EM  CATEGORIES. 

221C  -  NSETS  -  8  OF  SETS  OF  WART  RATES  TO  BE  COMPUTED. 

23  :c  -  IUP(S)  -  FIRST  TIME  PERIOC  IN  WARF  SET  S. 

24 5C  -  LWP(S»  -  LAST  TIME  FERIOO  IN  WARF  SET  S. 

2S:C  -  RAIR(P)  -  INTER-THEATER  L CSS  RATE  FOR  EOUIPMENT  SHIPPED  BY 
2E:C  AIR  IN  PERIoo  p. 

27 JC  -  RSEACP)  -  INTER-THEATER  L CSS  RATE  F CR  EGUTPMENT  SHIPPED  BY 
28  (C  SEA  IN  PERIOO  P. 

29:C  -  RLOC(P»  -  LOSS  RATE  OF  REPLACEMENT  EOUIPMENT  ON  THE  IN-THEATER 
30!C  LOC  IN  PERIOO  P. 

3i:c  -  AVEUNT(F)  -  AVERAGE  *  OF  MAJOR  BLUE  UNITS  TN  THEATER  IN  PERIOO  P. 

32:c  -  RELPSTf POStPEft)  -  FRACTION  OF  TIME  BLUE  FORCES  SPENT  IN  POSTURE 

33  :c  PCS  DURING  PERIOD  PEP. 

345C  -  ARTYK(P.V)  -  FRACTION  OF  ARTY  VULNERABILITY  C AT FG CR Y  V  LOST  IN 
35  :C  ONE  OAY  OF  POSTURE  P. 

36:C  -  ARTYSCIP)  -  SCALING  FACTOR  FOR  SIMULATED  ARTY  KILLS  FOR  POSTURE  P. 

375C  -  CEMKIP.CI  -  LOSSES  CF  CEM  CATEGORY  C  IN  PERIOD  P  (EXPRESSED  AS 

39  !C  PERCENT  PER  3D  OAYS. 

39 1C  -  LIN  -  LINE  ITEM  NUMBER. 

40IC  -  NOMEN  -  30  CHARACTER  NAME  OF  ITEM  OF  EOUIPMENT. 

41  :C  -  K  AT.  CEM  -  CFM  CATEGORY. 

42  IC  -  KATART  -  ARTILLERY  VULNERABILITY  CLASS. 

42:C  -  K  AT  HI  S  -  HISTORICAL  DATA  CLASS. 

44  :c  -  NOD  EF  -  s  OF  DAYS  OF  SUPPLY  KEPT  IN  IN-THEATER  DEPOTS. 

45 1C  -  AIRSHP  -  FRACTION  OF  RESUPPLY  SHIPPED  BY  AIR. 

4G:C  -  IFPENS  -  It  IF  ACTUAL  OFNSITY  IS  TO  BE  USED  IN  CALCULATIONS. 

47:c  Dt  IF  DENSITY  is  PROPORTIONAL  TO  MAJOR  UNITS. 

48JC  -  LOSCOD  -  1,  IF  COMBAT  LOSSES  ARE  FROM  CEM 

491C  2 t  IF  COMBAT  LOSSES  ARE  FROM  ARTILLERY  MODEL 

5p:c  3.  IF  COMBAT  LOSSES  ARE  FROM  HISTORY. 

51  !C  -  ISEQ  -  ITEM  SEQUENCF  NUMBER. 

52  JC  -  KDENSCP)  -  ACTUAL  DENSITY  OF  ITEM  IN  PERIOD  P. 

53 (C  -  DENPRO(PtZ)  -  FRACTION  OF  DENSITY  WHICH  IS  IN  ZONE  Z  DURING 
54  !C  PERIOD  P. 

55 !C  -  CAUZON(ZtC)  -  CAUSE  BY  ZONE  HEIGHT?  (FROM  SYMWAR). 

SEJC  -  SMZFACICI  -  CAUZON  SUMMED  OVER  ZONES  FOR  CAUSE  C. 

57:c  -  0  FN  S( P I  -  FRACTION  OF  PEAK  OENSITY  IN  THEATER  DURING  PFRIOD  P 


Figure  III.  1.3 
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UH  CL  *S  SI  FI  ED  •  •  »F  IL  C  NAME:82XGT  ELEMENT  N AMF : ELCON/3 *• »UNCL ASSIFTED 


5s:c  TIMET,  10QDU  (SINCE  SYM  WAR  LOSSES  ARt  PER  1UOOO  ITEMS  ) . 

S9!C  -  WSITEF  -  0.  IF  LOSS  MATRIX  HAS  NOT  ALREADY  RE  FN  CRFATEO. 

E05C  1.  IF  PR  E- CREATr  C  MATRIX  (FILE  21  IS  TO  BE  USED. 

CltC  -  MAT  HI St  C ,  P  I  »  MATRIX  OF  HISTORICAL  LOSSES  FOP  CAUSE  C  IN 
E2IC  POSTURE  P  (READY  FOR  ADDITION  OF  LOSSES  FROM  SIMULATIONS!. 

gj:c  expressfp  as  losses  PER  IDDDQ  PER  30  days. 

G**:c  -  HISMAT(D.P)  -  MATRIX  OF  HISTORICAL  LOSSES  FOR  CAUSE  C  IN 
STIC  POSTURE  P  FOR  A  PARTICULAR  SET  OF  UARF’S  (SUMMED  OVrR  ALL 

Ft:c  PERIODS  CO  NS  10  ER  f D  IN  A  WARF  SET.  EXPRESSED  AS  FRACTION 

STIC  CF  THOSE  EXPOSED  WHICH  ARE  LOST  PER  3D  DAYS. 

E8IC  -  DAYSEX  -  ITEM  DAYS  CP  EXPOSURE. 

£9  tC  -  SUKDAY  -  TOTAL  DAYS  CONST CFRED  IN  A  PARTICULAR  SET  OP  WARP’S. 
7(i:C  -  CCM8AT  -  LOSSES  PROM  SIMULATION  (PCT  PER  30  DAYS). 

71  SC  -  CAUSES!  C)  -  HISTORICAL  LOSSES  FROM  CAUSE  C  (PCT  PER  30  nA YS  )  • 
72IC  -  TCTHIS  -  TOTAL  HISTORICAL  LOSSES  (ALL  CAUSES). 

73  SC  -  IPRNT  -  0 1  IF  SHORT  T  Rl NT  IS  DF  SIRED. 

74  tC  It  IF  COMPLETE  LO NC  PRINT  (1  PAGE  PER  WARF  SET  PER  LIN!. 

75 TC  -  X INTH (S I  -  TOTAL  IN-THEATER  LOSS  RATE  FOR  WARP  SET  S. 

7E  :C  -  XWSHPIS!  -  TOTAL  INCLUDING  INTER-THEATER  SHIPPING  LOSSES. 

77  JC  -  DF.PLOS  -  LOSS  RATE  OF  EGUIPMENT  IN  DEPOTS. 

78  !C  -  X  LO  C  -  LOSS  RATE  DUPING  IN-THEATER  TRANSIT. 

79:C  -  UNFRAC  -  FRACTION  OF  CURRENT  THEATER  STRENGTH  WHICH  IS  CURRENTLY 
30JC  IN  TRANSIT  TO  THE  THfA  TER. 

3i:C  -  UNI  TL  -  LOSS  RAH  DURING  INTER-THEATER  TRANSIT  OP  REINFORCING 
32 IC  UNITS. 

33:C  -  REPLOS  -  LOSS  RATE  DURING  INT ER-THC AT ER  TRANSIT  OF  REPLACEMENT 

34 !C  EGUIPMENT. 

35  :c 

3&:C  ••••‘••••♦BEGINNING  OF  CCOE **•••*•••••••»••» **•••*•**•* 

87:  DIMENSION  T  CA  US  <  ?  .  10 )  .2  CNF  A  C  t  5 . 10  ) .  CLR  A  T  ( 10  .4 . 3  6  )  .NAME  (12), 

88:  1  NOPER (2D! »IUP(2n» .LWF <201 .RAIR(20» .RSEAI20! «RL0C(20I » 

39!  2  AVE UNT( 2U ). RELPST (4,2  0). ARTXX! 4.221 , ARTYSCI 20! ,CEMK(2D,25) 

BO!  DIMENSION  NOMEN (E  I  .KDEN S(2D ) .CAU70N (5,1U! »$M2FAC(101 . 

91!  1  MATHISI1D.4  I.HISMAT (1 U.4 | ,CAUSES(1D! .DrMPPO (2D,S ) . 

32:  2  DENS( 20) . FRPWC( 2U1 ,RF ARL(36.4 ! ,XINTH(2D) ,XWSHP(201 

33:  INTEGER  WRITCP 

34:  IHIS=4 

35  :  I  N=  5 

36:  10=6 

37:  IN0SHP=7 

38:  I WSHF=8 

99  :c 

100:c  -  REAP  SYMWAP.  HISTORICAL  RATE  FACTORS. 

mi  :c 

102:  DO  1  sic=l,10 

103 :  REAO( THIS, IDO II (TCAUS (N  ,JC| ,N  =  1,2) , <20NFAC( JZ ,JC) t J?=l,5) 

104  :i ooi  F  ORMATt  4X.2AC  ,9X,  F.F6.2) 

1USJ1  CONTINUE 

106:  DO  2  JCL--1.36 

107:  DO  3  UP  CS  =  1  ,4 

108 !  READ! IH 15.100  7) (CLR AT (J C.JPOE. JCL  ), JC=1.10) 

1C9:1U02  F  ORMATI 1DF8.5 ,4X) 

110!3  CONTINUE 

1U*.2  CONTINUE 

112:  00  45  JCL=1.36 

113:  READ! IH IS. 1038) (RFARL t  J CL. J PC S ) . JPO S=1 , 4 ) 


114:1038  F ORMATI 4P12 .6  | 
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unclassifiec»*»filc  N*nr:s2XQT  element  namc:elccn/s**»unclassified 


115  14  5  CONTINUE 

lif  :c 

1 17  1C  -  R  FA  D  INPUTS  F  OR  THIS  RUN. 

11S1C 

1191  READ! IN .1003) NAME 

17011003  FORMAT! 12A6) 

171!  WRITE  (10. 10(19  INAME 

12711009  F  CRMAT! 1H1.12  AC) 

123!  R  T  A  0! IN.IOOS) NP  SR  «  MXITM  . NCE MCL . N SET S  .  WR ITEF .NPPRE S  .IPRNT 

129 1  WRITE  C  C » 10 29  )NPr°.MXIT K »NC EM CL • NSE TS 

12511024  r  ORMA  T(  ////•  NFER  MXITM  »  CEM  CLASSES  9WARF  SETS*/ 

12C1  1  IS  .I7.SX.I4.7X.I7) 

1  27  1 1 00  S  F  OR  MA  7(  16  TS  ) 

126  1  READ!  IN. 1005)  (NOPER(NP)  .NP=1.NPER) 

129!  WRITE  (10*1025  M  NCPERI NP  )  .KP=1.NPER) 

1  201102  5  FORMAT!//*  DAYS  PER  PER  100  * /10IS  ) 

131!  WRITE  <10.1026  ) 

13211026  roRMATI//*  FIRST  AND  LAST  PERIOD  FOR  EACH  WARF  SET*) 

133!  OC  9  I=1.NSETS 

139!  READ!  IN. 1005) IWF( T) »LWP (I) 

1 35 1  WRITE (IO.10U5  ) I WP  » I ) . LW  F ( I ) 

13C19  CONTINUE 

137!  RfAC< IN. 1006) (RAIR! J) .Jzl.NPER) 

136!  REAO< IN. 100 6) (RSE A( J) ,J =1, N PER ) 

129!  READ!  IN. 1006)  <RLOC( J I  .  J  =  1.  N  PE  R  ) 

190!  WRITE (10.1027  ) I RAIR (J).  JT1.NPER) 

19111027  FORMAT!//*  AIR  LOSS  RATE  PY  PFRIC 0 * /1DF7 . 3 ) 

192!  WRITC (10.1026 )( RSEA(J). J-l.NPER) 

192  11026  rORMAT!//’  SEA  LOSS  R  AT  E  BY  F FRIC D • /10F7 . 3 ) 

194  1  WRITE  (10.10  29  )  (  RLOC  ( J  ) .  J-l  .  NPER  ) 

14511029  FORMAT!//*  LOC  LOSS  RATE  BY  PERIOD  * /10F7 . 3) 

1 46  11  00 6  FORMAT!  16F5  .4  ) 

147!  READ! IN, 1007)  (AVEUNTI J)  .Jrl.NPER) 

146!  WRITE  CO.  1030  )(  AVEUNT  (J  )  .J=1.NPER) 

14911U30  r  OR MAT! //*  AVERAGE  LARGE  UNITS  3Y  P ERIO D ’ /10r7 .2 ) 

15011007  roRMATI 1EF5.2  ) 

1511  WRITE  (10. 1C31  ) 

15211031  FORMAT!//*  FRACTION  OF  FORCE  8Y  POSTURE  BY  PERIOD’/ 

1531  1  ’  ATTACK  DEFEND  WI TH  DRAW  INACTIVE’) 

1  59  1  DC  5  Jr  1,  NPER 

ISbl  R  f  A  0 ( IN . 1 00  7 )  1 R  EL  PST ( IE  .JI.IFrl.4) 

166  1  WRITE  <15.10  32  K  RrLPST  (T  F.J)  »IP=1.<4> 

1 67  1103  7  F  CRMA  T( ?T7. 4. 2F10.C ) 

15915  CONTINUE 

159!  W  °I  TF  (1  0.1033  ) 

1FPUU33  F  OR  MA  T(  /  /  *  ARTY  KILLS  (  »  PER  DAY  >  BY  VULK  CLASS  BY  POSTURE*/) 
161!  DC  6  XP0S=1.4 

162  1  R  E  A  D  (  IN.  2001)  (ARTYK  (IPO  S.I  V  ULfl )  .  IVULN=1 .22 ) 

16312001  roRMATI  HF6.3) 

164 1  WRI TE (I c. 1034 )( APTYK! IF CS» T VULK ) . I V ULN= 1 . 22 ) 

16511034  FORMAT! 11E6. 3/11F9.3/) 

166  16  CONTINUE 

167  1  RFADI T" .15C ) ( ARTY3C (IPr  Rl.IprRrl .NPER) 

166  1156  T  ORMATI 1X.16F5. 3) 

169!  WRITE  (10.1035  ) I  ARTY  SC (I FTP I . I PE R  =  1 . NPER ) 

1  7011035  FORMAT!//’  ARTY  SCALNG  FACTORS  BY  P ER IC 0 * /IX. 10F7 . 3) 

171!  WRITT  (10.1036  ) 
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UNClASSIFICD»»*filT  N*MC:82XQT  ELEMENT  NAME t ELCON/7 •• *UNCL ASSIT It D 


172 

103  C 

173 

174 

175 

155 

17E 

177 

1037 

178 

7 

179 

130 

191 

C 

1  92 

104  C 

133 

184 

c 

195 

C  - 

19E 

c 

137 

8 

199 

199 

1 90 

100  8 

191 

C 

192 

C  - 

193 

C 

194 

195 

19F 

100  9 

197 

1 9S 

9 

199 

2  00 

101U 

201 

202 

10 

2  03 

204 

1011 

205 

2  06 

u 

207 

20S 

1012 

US 

12 

210 

211 

2U0  5 

212 

13 

213 

214 

215 

2  IF 

14 

217 

C 

218 

C  - 

218 

C 

2  20 

C 

221 

2  22 

223 

2  24 

2  25 

2  2E 

27 

2  27 

C 

2  28 

c  - 

f CRH*  T(  //•  CtM  KILLS  l»  PER  30  DAYS)  BY  CLASS  PY  PERIOD’) 

00  7  IPFR=1»NPER 

READ!  IS’,155  )!  CEMK  (IPER.  ICL)  »ICl  =  l»NCEMCL) 

F0RMATI1X.13FG.2* 

WRITE  1 1  0 « 1 0  37  )  I  CE  MK  !  I  PE  5 , 1  CL  ) .  ICL  =  1 • NCE  MCL  ) 
FORMATI/1X.10F7.3) 

CONTINUE 

KFSI2E=MxrTM»NFCR«4 

DEFINE  FILE  2  (KFS  IZE  .  Ill  .U.  I  VAR  ) 

IflIFRNT.LC.O)WRTTEIIC.  10461 

FORMAT! ’1  IT  EM  OF  E3 UIPMENT  •  , IE  X ,  •  W ARF  IN-THE ATE ^ , 3X . 

1  ’WITH  INTER- ’/40X,’SE  T  LOSSES  THEATER  LOSSES’/) 

BEGIN  EQUIPMENT  ITEM  PROCESSING. 

CCNTI  HUE 

READ)  IN.10U9.  ENDrlUOLI  N.KO MEN »K ATC EM . K AT AR T. KATHIS* 

1  NOD  CP .AIR SHF. irOENS »L CSCOD.TSFG 
FORMAT! IX, A 6, IX. 5 A6. IX,  312. 13. F 2. 2. 21 2. 14) 

CHECK  FOR  ORVIOUS  INPUT  ERRORS. 

IFdSEC.LE.MXITM)  GO  TC  9 
WRITE  (10.1007  )ISEQ 

FORMAT!’  SEQUENCE  *  •  .  IS  .  •  LARGER  THAN  MAX  SPECIFIED*) 

STOP 

IFILOSCOO.GT.l.OR.KATCF K.GT.O)GC  TO  10 
WRITE (I0.101DIISEQ 

FORMAT! •  SEQUENCE  i’.I5,’  MARKED  AS  CEM  ITEM  W/0  CATCEM* ) 
STOP 

IFILOSCOD.NE.  2.CR.KAT  AF;  T.GT  .0)  GO  TC  11 
WRITE  UO.ltliniSFQ 

F  CRMATt •  SEGUENCE  A • . IP  . •  MARKED  AS  ARTY  ITEM  W/C  CATART’) 
STOP 

Ir!KATHIS.0T.0.Af:r.KATHIS.'_E.3$)  GO  TC  12 
WRITE !I0.I01?)ISE0 

FORMAT! *  ITEM  A’.TSt’  HAS  ILLEGAL  HISTORICAL  CLASS’) 

IF(IFDENS.LC.U)GO  TO  13 

READ!  IN  ,  2flC  5 )  (K  OF  NS  !  I  PE  R  ) .  I  PFR  =  1  »NP  ER  ) 

F  ORMAT! 1017  » 

DC  14  IPFR-l.NPER 

RE AO!  IN. 100 7) IDCNPRO!  TP  FR.I2PNE ) i TZ0Nf=l»5) 

FRF  WO  (IPrOrDCNPRCI  IPER  .1 1 ♦ DENPRO ( I  PE R .  2 > ♦ 

1  OE  NP  RO  ( I  PE  R ,  3 ) 

CONTI NUE 

COMPUTE  EATW  pERTCO’S  FRACTION  OF  PEAK  THEATER  DENSITY 
OF  THIS  ITEM. 

00  27  IPER- 1, NPER 

DENS! IPEP)-AV:UNT (I PEP) ♦ 10 ODO/AV CUNT! NPER) 

I  F  (  IF  CE  NS .L  C  *  U ) GO  TG  27 
OrNS! IPER 1=0. 

IF! KD EH 3! NPER ).GT .0)CEN S (IPER ) =KOFN S ( IP E° ) • 10000/KDENS I NPER  ) 
CONTINUE 

IF  LOSS  MATRIX  FOR  TACH  PERIOD  HAS  NOT  ALREADY  DCCN 
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UNCLAS5irm*»«FILF  N*ME:82X0T  element  nane:elcon/3**»unclassipteo 
??^:c  constructed  and  input  on  pile  ?.  construct  the  matrix 

C’.OIC  AND  STORE  ON  PILE  2. 

2  31  :c 

232:  IFIWRITfP.CT.OIGO  TO  44 

2  33:  DO  15  I PFR= 1 »  NPER 

2  34  :  ILOCr Jl SEQ-ll .NPFR.4  ♦  JIPER-11.4  ♦  1 

2  35  J  F  IN  OC  2*  TL  OC  I 

23ft  IFJIPER.FO.il  GO  TO  16 

2  37:  I TE  ST:I  PfR-1 

23s:  DO  17  1=1.5 

239:  IF  JOENPROJ JPCR.II.NC.DENPROJITEST.il IGO  TO  16 

240117  CONTINUE 

2<*i:  GO  TO  18 

2R2:i6  CONTINUE 

243:  DO  22  IC=1,10 

244:  S  HZ  FA  C J IC I  =  0. 

245:  DO  19  I Z=l. 5 

24G:  IFJL0SC00.GT.2IG0  TO  20 

247:  IFJLOSCOD.EG.l.ANP.IC.E S.l . ANO.I7.LE.3IGO  TO  19 

248:  GO  TO I2U. 21. 20. 21. 21. 2D .20.20.20.201 .IC 

249521  GO  TO J13. 19, 19. 20. 201. 12 

2  50 :2  0  CAUZONJ 12.1 C»=ZONFACJ 12  .IC I »OENPRO J IPER .12) 

2  51 :  SM2FACI IC I  =  SM  ZF  AC ( I C I +C AUZONJTZ.ICl 

2  52  :i9  CONTINUE 

253:  DO  23  I POS= 1 »  4 

254:  hath: 31 TC.IPOSI=CLRAT JI C.IPCS.KATHIS1»SM7FACI ICI *.5  I 

255  :23  CONTINUE 

2  5F.  :2  2  CONTINUE 

2  57 :i 8  DO  24  IP0S=1.4 

258:  WRITE J2*IL0C» JMATHISJ IC  .IPOSI.ICri. 101 

259:  I LO  C=  IV  AR 

2S0:24  CONTINUE 

26i:is  continue 

2G2:44  CONTINUE 

rs?:c 

2S4JC  -  BEGIN  LOOP  TC  COMPUTE  EACH  SET  OF  WARF  RATES 
2E5:C 
2  EE  :c 
267: 

268  : 

2  C9  : 

270:28 

?7i : 

2  72  : 

273: 

2  74  : 

2  75: 

276: 

277: 

278  :26 
279: 

2  30: 

23i: 

2  32: 

28?: 

2  94  : 

2  35: 


FOR  this  ITEM. 

00  25  I=l.NSrTS 
DO  28  icn.10 
DO  28  I PO S= 1 «  4 
HISMATJ IP.IP0SI=0. 

KFIRSTrlWPJ II 
KLASTZLWPJI  I 
DAYSCX=0. 

S  UM  DA  Y-  0  . 

DC  26  IPFR=KFIRST .KLAST 
CAYSEX=OAYSEX*DENS» IPER  I .NDPER J IPER  I 
SUMDA  Y=  SUHD  AY+NDPFR  J I  PE  K I 
CONTINUE 

ifj oaysex.le.o.  ioaysex=i. 

C0MBAT=O. 

PC  29  IPER=KFIRST,KLAST 

ILCC= (I SFO-ll *NPER»4+ JIFER-1I.4A1 

F IND I  2' ILOC I 

DO  31  I P0S=1. 4 

READJ2* ILOC IJ  MATHIS J I C, IPOS  I . IC  =  1» 10  I 
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UNCLAS$IF1E0**»F ILE  NAHr:62X0T  ELEMENT  NAMr:tLCON/J*»*UNCLASSIrIEO 

256:  ILOCRIVAR 

2  57131  CONTI  MJC 

288:  CO  30  ICrl.lD 

289:  DO  30  IP0S:1.4 

290:  HISMAK  IC.IPOS):HISMAT(  IC. I POS > ♦ I M ATHIS ( IC, IPOS  1  • 

29i:  1  DEHSI IPER (•NOPER: IPS*  l»RELPST:iPOS.IPEP ) >/ 

292:  2  (10000.  ‘DAYSCX) 

233(30  CONTINUE 

294  1  BO  TO  (37. 36.29)  .LOSCOD 

2  95(C 

2961C  -  COMPUTE  COMBAT  LOSSES  POP  CEM  ITEMS. 

2  97  :c 

2  98(37  C0MBATiC0M6AT*CEMK( IPER .K AT CEM » »F RP WO » I PEP ) *DPNS( IPEP I  * 

299(  1  NOPER  (IPERI/OAYSEX 

300(  60  TO  29 

301(38  C0MART:O. 

702  :c 

303 (C  -  COMPUTE  COMSAT  LOSSES  FOR  ARTILLERY  ITEMS. 

304  :c 

305:  DO  39  IP0S=1*4 

306:  COMARTrCCMART+ART YK (IPO  S.KATART ) • RE LP ST ( IPO S. IPER ) 

307:39  CONTINUE 

308 (  C  OMB A  T: COMB  AT  *30. *COM AR  7«FRPWD(IPER  > * AR TYSC ( I PER ) • 

309:  1  NOPER (IPER) »DENS( IPER  l/OAYSEX 

210(29  CONTINUE 

31i:  TOTHISrO. 

312:  DO  32  IC=’.10 

3131  causes: ICI=0. 

3 14 (  DO  33  I POS: 1. 4 

3  is:  cause S( ICI  =  CAUSES(IC)*HISMAT(IC.IP0S)*10O 

316(33  CONTINUE 

317(  TOTHI S:  TOTH  IS  *C  AU  SE  S( IC  I 

315(32  CONTINUE 

3 13 (  IF( IPRNT.CT.O) 

3201  1  U  RI  TE ( I  0» 1013 )L IN  »N  CMEN .KATCEM.KATART.K AT HIS. LOSCOD. 

3  21(  2  IS  EG 

322(1013  FORMAT: 1H1.1X.A6.1X.5A6  ,2X.  'CEMr'.U.*  APTY=*,I3. 

2Z3(  1  *  HISTORY:' ,13. 4X,' SOURCE -*.I2»4X. 'SEO* .15) 

324:  L0AY=0 

325(  00  34  I C:l »  KL  AST 

326(  LDAY:LOAY+NDPER(IO) 

327(34  CONTINUE 

328  :  I DA  Y: LD  AY-S  UM  DA  Y+ 1 

3  29 (  IF(  IPRNT.CT.U )WRITE(IC. 1014 )IDAY,LDAY 

330:1014  FORMAT! //// 3X . *  30 CA Y  LOSS  RATE  FOR  PERIOD  FROM  DAY*. 

33i:  1  14,*  TO  DAY*. 141 

232(  IF(IPRNT.CT.0)WRITE(70» 101 5) 

33j:i015  FORMAT: //15X. 'DENSITY  PROFILE  (FRACTION  IN  ZONES  1-5)*) 

3 34  :  CO  35  IPERTKFIRST  .klast 

3  35  :  LDAY:IDAY*NDFER(IPER)-1 

3  36 (  IF( IPRNT.ST.dlWRITr (10. 1016 IIDAY.LDAY. t  DENPR0(IPER»I7). 17:1  .5) 

3  37 (1016  FORMAT! /lBX.’OAY*  »I4. *  -  * . 14 . 5 : 3X  .  F4 .2  ) ) 

33$:  1 0  A  Y:  LD  A  Y*1 

339(35  CONTINUE 

240:  IFdFRNT.OT.mURITEIIO.  1017) 

341(1017  FORMATI /lOX.’RATES  DERIVED  FROM  HISTORY  (*  PEP  30  DAYS)*/) 

3  42  (  DC  36  icn.io 
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UNCLASSIFIED*»»FILE  NAME!B2X0T  ELEMENT  NAMC!ELCON/?*»»UNCLASSIFIED 

343!  IF(  IPPNT.GT  .11  IWRTTFdC.  101  S  I  (TCAUSIN.IC)  «N=1. 21  .CAUSES!  IC) 

’  r  1 01  3  F ORMATI 13X.2A6.F9.2 I 

j  nr. :  3  e  continue 

3  4F  !  IFdPRNT.GT.O  (WRITE  (TO.  1019  ITOTHIS 

3  47  ! 1 U1 9  F  ORMA  T( /10X  * •  TOTAL  FROM  HISTORY  =  *.F7.2) 

3  48  :  CO  TO  (40.41 .42!  .LCSCOO 

7  49  !4  0  IF (IPRNT.GT.D1 WRITE (I  0.  1020 (COMBAT 

35r!l02Cl  F0RMATI///10X. ’ADDITION AL  RATES  DFRIVED  9Y  SIMULATION.* 

351!  1  IX. •( INCLUDES  DIRECT  FIRE.  AREA  FIRE.  AND  AIR)*/ 

3S2:  2  27X.F6.2) 

3  53!  GO  TC  <»3 

354  !41  IF ( IPRN T. GT .0 ) WRITE ( 10. 1021 (COMBAT 

35511021  FORMAT* ///10X. ‘ADDITIONAL  RATES  DERIVED  BY  SIMULATION* 

3  56 !  1  XX. • ( INCLUD  CS  AREA  FIFE  AND  AIR ) • /27X .F6.2) 

357!  GO  TO  43 

3  58  !42  IF (IPRMT.OT.U (WRITE (10.  1022) 

359:1022  FORMAT! //lox. *N0  ADDITIONAL  RATES  FROM  SIMULATION’ ( 

3 GO  143  TGTAL=TCTHIS*COMPAT 

301!  XINTH  (I  CTOTAL 

3G2!  IF { IP  RNT, CT .0 (WRITE ( 1 0.  1023)T0TAL 

3  63 ! 1 02  3  FORMAT! //10X. ’TOTAL  LOSS  RATE  (NOT  INCLUDING  SHIPPING  *, 

264!  1  ’OR  DEPOT  L  OSSE  S )  V27  X.FG  .2  ) 

3  65  !C 

3  5E  !C  -  COMPUTE  ADDITIONAL  LOSSES (DEPOT. LOC. INTER-THEATER  LOSSES  IN 
3  67  !C  UNITS.  INTER- THEATER  LOSSES  OF  REPLACEMENT  EQUIPMENT). 

368  :c 

3691  DEPLOS=0. 

370!  XLOC- 0. 

3  71!  UNITL=0. 

372!  REPLOS=0. 

373!  DO  46  IPER=KFIRST.KLAST 

374  !  D EPFA  C-0. 

375  !C 
37E :c •» 

3 77 !C  THOSE  STATEMENTS  IN  THE'  NEXT  SECTION  DF  CODE  WHICH  ARE  MARKED 

378  !C  WITH  A  *1*  IN  COLUMN  73  HAVE  BEEN  CHANGED  OP  ADDED  SINCE  THE 

379  !C  MODEL  DOCUMENTATION  PU8LISHE0  IN  AUGUST  1979. 


380!C*' 
361  :c 
3  82  ! 

3  33! 

3  34  ! 
385  ! 

3  36  ! 

3  97! 

3  88! 

3  39! 

3  90  !4  8 
3  31! 

3  92! 

3  93! 

3  94! 

3  35! 

3  96! 
337  :49 
3  38! 
399:47 


XXX=RL0C(IPER  l/U.-RLOC  (IPERd  1 

XLOC=XLCC*DENS( IPFR|«NDPER(IPFR(*XXX/DAYSEX  1 

IFdPER.FQ.il  GO  TO  48  1 

IF( DENS (IPERI .LE.O. (GO  TO  48  1 

UNFRAC: (DENS( IF ER (-DENS (IPE R-l ( I /DE NS < IPER I  1 

IF(UNCRAC.LT.  .0U1IGC  TO  48 

UNITL=UN:TL*I  RAIR(IPER-1)*AIRSHP*RSEA(IPER-1)*(1.-AIRSHP)J  1 

1  *UNFRAC*DENS( IPERI 
CONTI  NUE 

IF( IFER.FQ.l. OR.IPER.LE .NPPRCSI  GO  TO  49 
KPF  R- IP  ER-1 

XXX=RAIR( KPER (/ (1 .-RAIR (KPER) I  1 

YYY  =  RSC A(KPER (/(l.-RSEA  (KPER)  I  1 

REPLOS=RFPLCS*( XXX* AIRS  HP* Y YY« (1 .- AIRSHP I (•  1 

1  DENS( IPER l*NDPER( IPER  (/DAYSEX 
CONTINUE 
00  47  IP0S=1»4 

DEP FAC- DEPP  AC+REARL (K AT  HIS . IPOS  I •REL°ST( IPOS. IPER ) 


UN  CHS  SI  FI  EC  *•  *F  ILE  NAME  :B2X0T  ELEMENT  NAME:ELC0N/3*»*UNCLASSIFIED 
*00:  DEPLOS=OEPLOS.DEPFAC»Or  K$( I  PER  I .NDPER ( IPE PI /DAYSEX 


401:46  continue 

•t  02  SC  OCLETED  FROM  ORIGINAL  1 

403 SC  DELETED  FROM  ORIGINAL  1 

*tU<t:C  CELETED  FROM  ORIGINAL  1 

4055  FCTOEP= TOTAL* (NCDEP/30. I*DEPL0S 

406!  FRUNL=UNlTL*3U. /DAYSEX 

4075C  DELETED  FROM  ORIGINAL  1 

408!  PCTUNL=FRUNL* 100. 


4  09;  IF! IPRNT. GT.O (WRITE (TO. 1039 IDEPL OS . ND DE P . PC TDEP 

410:1039  FORMAT! //10X* LOSSES  IN  DEPOT  !’,F5.3.’  0r*.I4. 

41i:  1  ♦  DAYS  STOC  Kl  =  ’.F5.3.’*’l 

412:  PCTLOC=TOTAL*XLOC 

413:  IF! IPRNT.GT.O (WRITE (10. 1040»PCTL0C 

414:1040  FORMAT! /10X, ’LOSSES  IN  IN-THEATER  LOC  =• .F6 .3 . * *• » 

415:  TOT  AL=T OT  AL *P CTLOC+  PCTD  EP 

416:  I F( IPRNT. GT .0 (WRITE  II 0. 1041 (TOTAL 

417:1041  FORMAT! /lOX.’TOTAL  IN-THEATER  LOSSES  =’.F7.2.’*’> 

418:  IFCIPRNT.GT.OIWRITEIIO. 1042 (PCTUNL 

4 19 :i04  2  FORMAT! /10X.* INTER-THEATER  LOSS  DURING  UNIT  TRANSPORT  =  ’, 
420:  1  F7. 3. ’*’ I 

4 21 :c •*•••»•••«*••••••* •«*•♦••»•• •»•••**•**.*•*••*•*•.*•*•***••**** 

422:c  THE  FOLLOWING  CODE  REFLECTS  A  CHANGE  IN  THE 
423:c  DOCUMENTATION  IN  THE  WAY  THE  REPLACEMENT 
424:c  FACTOR  IS  APPLIEO  IN  CONFUTING  A  WARF. 

. . . •*«•«*»**•*•«**•*• . . . . . ...» 

426:  TOTAL=TOTAL .PCTUNL 

427:  PCTRPL=TOTAL*REPLOS 

428:  TOTAL=TOTAL+PCTRPL 

4  29:  IFIIPRNT.GT.OIWRITEIIO.  1044  IPCTRPL 

430:1044  F0RMATI/10X. ’INTER-THEATER  LOSS  OF  REPLACEMENT  ITEMS  =  ♦. 

43i:  1  F7.3»’*’l 

4  32:  IF ( IP RN T. GT .0 (WRITE  1 1 0.  104  5 (TOTAL 

433*.1045  FORMAT! //20X. ’TOTAL  30  CAY  LOSS  RATE  r  ».F7.2,’»’J 
434:  XWSHP  (I(=TOTAL 

435:  IF! IPRNT. EQ.O (WRITE (10. 1047 >L IN ,NOM EN . I .XINTH I I > . XWSHP (II 

4  36 : 104  7  FORMAT! 1X.A6.1X.5A6.I4. F9.2.F13.2I 

4  37:2  5  CONTINUE 

4  38:  WRITE (IN0SHP.1043ILIN.N CMEN . ( XINTH ( ISET  I  . ISET  =  1 .NSETS ) 

4  39:  WRITE (I WSHP. 104 3) LIN. NO  MEN. (XWSHP (I SET  I . ISET=1 . NSETS I 

4 40 : 104 3  FORMAT! IX . A6 . IX . 5 A6 . 10F  E.2/33X .10E6 .2  I 
44i:  GO  TO  8 

442U00  CONTINUE 

4  43:  END 


i 

i 

i 


] 


i 


UNCLASSIFIED**** XAHPLC  CF  HOLD  CUT  PUT  DATA  FROM  UTILITY  FL CON/3* * *UNCL ASSI FICD 

1  :a as  aaaaaaaa HaaaasFBaaaCHaaaar '‘aaaasAaaasc'aa&aaGaaaaaaBaaaa* 

2  :asa  aaasasaaHB  aaascaaa  ac  Aaaasc  <'aaaaaMsaaac*aaBa3Gaaasaaaaaa8A 
3 : a as sa aaaaaaHs  aasace aa scb&sssc FsaasHA&asacasaaaG&aaaaaaaaa&l 
4 :a saaa asaaBB as  as aa a* aaaaaaas aa  ssaaasaasascuaaaaatasasaaa&eaac 
s  :aas  aaaaasasHaaaaaraaa  acnaaa  sc  '‘aaaaaAaasacaaaaac.a  as  sa  saaaas* 
c  :aassa  aaaaaa  Hssaastsaa  at  as  aa  sc  ‘'saasaiaaaac'aaaarreaaaaaaasaaB 
7  :asa  as  as  ss  as  Ha aaascaaa  acsaassr  KsaasHAaaac.caBaurGaasa&aaaaaal 
e  :ass ss aa saasaeasaaaesasafaaaas  saaaaaa5aB^cuaaBaa»sssaaaaBsaat 
9  :  a  saaa  as  saaa  Ha  aaasFasa  sr  Ha  as  sc  ''aaaaaAasasc'sa&aDGaaasaaaaaas' 

io : a ssaa as aa aa Hsasascs sa sc  as  as ac  Aaaaa9Maaasc*aaaa3coaaaasaaaa&B 
li : ass aa saaaas Ha aaascaaa ac  pass  sc  FaaaaHAaaaac’aaeaacaaeaaaaaaaai 
12 1 a  as aa aa saaa aaaaaaaaaaaBaaaa aa  aaaaaaaBaaacuaaaaa*aBBaaaBBaaac 
1 3  za  as  as  as asasna aaasFaaaacHaaaar Aes a aa Asaaac* a aaaaoaaa aaaaaaaa* 
in :aaa aa aaaaaaHs aaascaaa ac Aaaasc "saaaaMaaaac-aaaaaGaaaaeaaaaaaB 
is : a as aa as saaa H3 aaascaaa sc eaaaar  paaaaHAsaaacaaaaaGaaaaaaoaaaai 
16 :aaa aaaaasaaasaaasaaaa as aa saaa saaaaaaaaaacuaaaaataaaaaaaaaaac 
17 :  a  as  as  saaa  aa  HsaaaaFsaa  ac  Haas  sc  "aaasaAaaaacasaaaGasasaaaaaaa* 
is :aaa aa ssasaaHaaaaacaaaacAaaaac  “aaaaBMaaaac'aaaaaGBaeaaaaaaaBB 
19 :saa as  as aaaaHS aaaacaaaac Raaaar  KaaaaHAaaaacsaaaaGaaaaaaaaaaal 
20 : a  as as aa aa aa aa saaa aa sa aa sa aaaa saaa aaaaasacuaaaaataaaaaaaaaasc 
21 :aaa sa as saaa HaaaaaraaaacHaaaac  “aaaaaAaaaacasaaaGaaaaaaaaaaa* 

22:aaa as aaassBHaasaacsaaacAaaaac  *8saasMaaaacaaaaaicaaaaaaasasBB 
2i:aaa  as  aaaaaaHs  aaa&csaaacBaaascFaaaBHAaasacaasaDoaasaBssasBsi 
24 :sas aaaaaaaa aaaaaaaaaaaaaaaaaa  aaaaaaaaaaacuaaaaa-saaaaassaaac 
25 :sas aaaaaaaa HaaaascsaaacGaassc  aaaaaaAasas'aaaaaaaoaaa  aaaaaaaa* 

26  : a aa aaaaaaaa Ha aaaaaaaa ac*aaa sc  saaaaaLesasnsasaaoGsassasaaaaaB 
2T :a as aaaaaaaa Ha aaaaaaaa ac  aaasc HaaaaGYaaaaaaaaaaaGaaaaaaaaaaai 
28 :aaa aa assaaaasaaasaaassasaaaaaasaassssaaacvaasaa*asaaasaaasac 
29 :aasss aa&aascaaaaaaaaaaaraasaa :aaaacusasa«Haasaa*sasas saaaas 
sotaaa sa aaaaaacaaaascaaaaacaaaas :saaaFGsaaaAzaBaaa*aaasa3aaaaac 
31 :a  sa  aa  aa  aa  aa  ca  aaaa  ca  as  sa  Aa  aa  aa  caaa  as  saaaGsaaaas+aaasaGaaaaco 
32 :aas aaaaaaaa aaaaaaaa aa aaaaasas saaassaaasaataaBasosaaaassaaaa 
33:aas aaaaaaaa caaaaeaaaaaacaaaaa :aaaacusasa»Haaaaa*aaaaaGBasas 
34 :aaa aaaaaaas ca aaascaaa ascaaass :eaasFQasaaAzasaaa*aaaaaGsaaaac 
35  :a  aa  aa  aa  aa  aa  ca  aaaaca  aa  aa as  as  aa aaasas  aaaaG saaaas* a aaaacaaaaao 
30  is  sa  aa  as  aa  aa  aaaaaaaa  aa  aa  sa aa  sa saaa aaaaaaaa laasssaaaaaaGsaaaa 
37 :aaa aaaaaaas  caaa  saaa aaascaaa aa :aaaacuaasa»Haaaaa*aaaaaGaaaas 
38  :aas  aaaaasaacaaaascaaaaacaasaa  cs'asaFaaassrzaaaaa+aasaaGaaaaaE 
39 : a aa aaaaaaaa ca aaascaaa aa*a saaa zaaaaa  aaasGsaaaaa+aaaaaGaaaaao 
40 :  a aaaaaaaa aa aaaaaaassa aaaaaaaa  saaaaaaaaaaaiaaaaaaaa&aaGaaaaa 

41  :aaa as  as saaa caaa as as aaaaaaas as caaaacAaaaa«jaasaa*aaaaaGaaaa8 

42  s  a  sa  aa  aa  saaa  ca  aaaaca  aa  sa  aa  aa  sa  caaa  ac7  ssas  A*a  aaaa*a  aa  aaGaaaaaF 

43  :aaaaaaaaasacaaaaacsaaaa*aaaaa ;aaaa=?aaaaG/aaaaa*aaaaaoaaaaap 

44  :aaa aa aaaaaaaa aaaaaaas aaaaaaaa  saaa aa aa saaa  t a aaaaaaaa aaGaaaaa 

45  :aaa  aa  aaasas  ca  aaaaaaaa  aaaaaaaa  asaasc’,aasa»jaaasa*aaaaaGasaaa 
46 :aa& assess as caaaaaca aa aaaaaaaa  aaaaarraaaa*+aaaaa+aaaaaGaaaaaF 

47  :a aaaaaaaa as caaaaacaaa$a*aaasa  jaaaa=zaaasG/aaBaa*saa8SGaaaaaP 

48  :aaa  aa  as  aaaa  aaaaaaaa  aaaaaaaa  as  saaaaaaaassataasaaaaaaaaGaaaaa 

49  :aaa  as  as  aaascaaa  aaaaaaas  rasa  as  caaaaoYaasaKcaaaaa+aaaaaFaaaaa* 
so  :aas saaa saaa ca aaasas saaa csss  as :aaaaGoaaaaAsaaaaa*asaasFaaaaao 
51 :aaa aa as aaaaca aaaaaaaa aaaaaaaa :aaaa«6SassG  >eaaas+aaaaaFaaaaaL 
52 :  a  as  as saaa aaaaaaas saaa saaa saaa  saaa aaaaaaaa »a as saaaas aacaaaa a * 

53  :aaa aaaaaaas caaBafiaaaasacasaas  aaaaanYaaaancaasaa+aaaaaFaaaaa* 

54  :aaaasaaaaaacaaaaaaaaaaacaaaaa  aaaaasoaaas-seaaaa^aaaaaFaaaaaD 

55  :aaa aaaaaaaaca aaaaaaaa aaaaaaaa :eaaa*saaaaG laaaaa *388  88 raaaaoL 
56 :aaa aaaaaaaa aa  aa  as  aa  as  sa  aaasas saaa aaaaaaaa *aaaaaaaaaaaFaaaaaA 
57  :saa aacaaaaa aaaaaa mb as aaasas as  Baaaaz<a8a8azaaaa8*aaaaaAaaaaac 
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UNCLA3SIFI£0«»»EXAHPLr  or  THf  OUTPUT 
It  AO  3196  AK  VfH  H218  GM  EC  P1A 


2: 

54 

64 

44 

58 

3: 

.00 

.00 

.00 

.80 

.20 

4: 

.00 

.00 

.00 

.90 

.20 

s: 

.00 

.00 

.00 

.80 

.20 

6: 

.00 

.00 

.00 

.80 

.20 

7: 

.00 

.00 

.00 

.80 

.20 

s: 

.00 

.00 

.00 

.80 

.20 

9: 

.00 

.00 

.00 

.75 

.25 

10: 

A14752 

ADAF 

'  TEST 

CAMERA  LM17S 

11: 

10 

16 

16 

17 

17 : 

.00 

.00 

.20 

.90 

.00 

is: 

.00 

.00 

.20 

.80 

.00 

14! 

.00 

.00 

.20 

.80 

.00 

157 

.00 

.00 

.15 

.85 

.00 

16: 

.00 

.00 

.15 

.85 

.00 

17: 

.00 

.00 

.35 

.65 

.00 

ia: 

.00 

.00 

.35 

.65 

.00 

19: 

A2  24  9C 

AIMING  CT 

RCLE 

M2  M/E 

20 : 

6615 

6699 

9820 

8323 

21: 

.25 

.25 

.50 

.00 

.00 

22: 

.25 

.25 

.50 

.00 

.00 

23: 

.25 

.25 

.50 

.00 

.00 

243 

.25 

.25 

.SO 

.00 

.00 

25: 

.25 

.25 

.50 

.00 

.30 

?6: 

.25 

.25 

.50 

.00 

.00 

27: 

.25 

.25 

.50 

.00 

.00 

2s: 

A2  3770  AIR 

CONP 

FL/WND V  6000  8 

29: 

C 

1 

a 

0 

0 

30: 

.00 

.00 

.00 

.no 

.00 

31 : 

.00 

.00 

.00 

.00 

.00 

32: 

.00 

.00 

.00 

.00 

.00 

33: 

.00 

.00 

.00 

.00 

.00 

34  5 

.00 

.00 

.00 

.00 

.00 

35! 

.00 

.00 

.00 

.00 

.00 

36: 

.00 

.00 

.00 

.00 

.00 

37: 

A? 3a 28  AIR 

COND 

F/WA 

9000  BTU 

3a: 

889 

99  3 

9  96 

998 

39: 

.0(1 

.00 

.25 

.25 

.50 

40 : 

.00 

.00 

.25 

.25 

.50 

hi  : 

.OU 

.00 

.25 

.25 

.50 

42: 

.00 

.00 

.25 

.25 

.50 

43: 

.00 

.00 

.2? 

.25 

.50 

44: 

.00 

.00 

.25 

.25 

.50 

45: 

.00 

.00 

.25 

.25 

.50 

46: 

A2404U  AIR 

C  0Nn 

19000  RTU 

47: 

S3 

53 

53 

55 

4a: 

.OU 

.00 

.00 

.50 

.50 

49: 

.00 

.00 

.00 

.50 

.50 

so: 

.00 

.00 

.00 

.50 

.50 

si : 

.00 

.00 

.00 

.50 

.50 

52: 

.00 

.00 

.00 

.30 

.70 

53: 

.00 

.00 

.00 

.30 

.70 

54: 

.00 

.00 

.00 

.30 

.70 

55 : 

A2431B  AIR 

CONO 

lsooo  etu 

56: 

15 

25 

42 

57 

57: 

.00 

.00 

.25 

.75 

.00 

or  UTILITY  ITMIO/REC«A*»*UNCLASSIFltD 

U  522  JO  0  1  2  l 

78  88  88 


01838  30  0  1  2  2 

17  17  17 


01838  30  0  1  2  3 

8823  8323  8378 


01833  30  0  1  2  4 

0  0  0 


U1833  30  D  1  2  S 
998  998  998 


01833  70  0  1  2  6 

55  55  55 


01933  30  0  1  2  7 

63  83  97 


Figure  III.  1.5 


unclassifieo*»*ex»nple  or  the  output  om  froh  utility  control/cohpiler*»*uncl»s 

i:tekpor*ry  control  oat»  file  m»rf  postiincc 
2:  T  6  9  10  0  2  -1 

3:  IS  IS  30  30  30  3  0  30 

«•:  i  i 

5:  2  2 

c:  i  2 

7:  3  3 

8 :  4  4 

9  5  S  5 

10 :  6  6 

ii :  7  7 

12  5  1  4 

13  5  5  7 

14:  .05  .OS  .05  .01  .01  .00  .00 

is:  .15  .15  .23  .10  .05  .02  .00 

is:  .15  .15  .10  .10  .05  .05  .05 

17:  48.1  51.5  52.0  52.0  52.0  52.0  52.0 

18 :  .000  .141  .059  .800 

19:  .2  55  .145  .050  .800 

20:  .200  .155  .005  .640 

2i:  .100  .055  .105  .840 

221  .005  .055  .140  .800 

23:  .305  .005  .000  .890 

24:  .5  55  .000  .000  .44  5 

251  .000  .994  .211  1.666  .222  .111  .868  .090  .138  .899  .574 

26:  .224  .691  .264  .714  .999  .744  .359  .8D7  .644  .921  .100 

27:  .100  .992  .600  2.744  .578  .000  .299  .000  .704  .000  2.192 

28:  7.682  3.339  .668  1.750  1.199  .502  .078  .515  .597  .000  .080 

29:  .200  2.507  1,254  .927  .494  .000  .633  .000  .283  .284  1.809 

30:  6.753  3.355  .895  3.001  1.679  1.789  .465  .899  .566  .000  .090 

3i:  .050  .255  .064  .555  .888  .010  .088  .550  .823  .760  .064 

32:  3.142  7.460  .533  .850  .973  .349  .077  .050  .778  .000  .080 

33:  .649  .764  .9801.000  .950  .485  .196 

34;  64.00  1.40  .00  .00  10.00  24.00  36.00  72.00  7.80  .00  9.00  .00  *00 

35:  56.00  1.40  .00  2.00  20.00  34.00  52.00  60.00  4.20  .00  8«00  .00  .00 

361  50.00  .90  .00  2.00  15.00  24.00  37.00  28.00  2.30  .00  7.00  .00  .00 

37:  27.00  .SO  .00  .00  6.00  18.00  25.00  10.00  .SO  .00  .00  .00  .00 

38:  19.00  .40  .00  .00  5.00  13.00  16.00  4.00  .50  .00  6*00  .00  .00 

39:  30.00  .30  .00  4.00  4.00  14.00  33.00  3.00  .10  .00  4.00  .00  .00 

40:  17.00  .10  .00  2.00  3.00  7.00  15.00  1.00  .10  .00  1.00  .00  .00 
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jNet*si!fitc*««c**MU  or  raki-xx  xsre-i  outrut  data  fror  utility  tLCOR/i 

it  tcrfdrary  control  ®*t»  filc  kart  Mitttoce 

t: 

it 

«t 

!!  Ntn  RlUR  X  OCR  tuatt  »R»«r  «t! 

T I  T  I  I  10 

It 

It 

lOt  DA  TS  f»  X  CR  100 

lit  II  II  10  10  .10  10  10 

lit 

lit 

l»t  F1R1T  ARO  LAIT  FtRlOO  FOR  tA  CH  RARF  SIT 

lit  1  1 

lit  I  1 

17 1  1  1 

lit  1  1 

lit  A  * 

101  I  I 

lit  I  I 

lit  7  7 

lit  1  A 

lAt  I  7 

lit 
lit 

17 1  AIR  LOSS  RATC  IT  FtRlOO 

lit  .010  .010  .010  .010  .010  .000  .000 

lit 

lot 

11!  SCA  LOSS  RATt  ST  FtRlOO 

lit  .ISO  .ISO  .110  .100  .010  .010  .000 

ii : 

SA  t 

lit  LOC  LOSS  RATt  ST  FtRlOO 

n :  .iso  .iso  .100  .too  .osa  .oso  >oso 

it: 

lit 

n:  AVtRAUt  LARSt  UNITS  IT  FtRlOO 

AOt  ai.io  si. so  si. oo  si. oo  si. oo  si. oo  si.oo 


Alt 

Alt 

Alt  FRACTION  OF  FORrt  SY  FOSTURt  ST  FtRlOO 


MS 

ATTACK 

Ot  Ft  NO 

MX  THOMU 

IN  4CTIVC 

m: 

.oooo 

•  1 A10 

•osso 

.1000 

ms 

.1310 

.1AS0 

.0  500 

.6000 

47 : 

.1000 

.1550 

•ooso 

.1*00 

MS 

.1000 

.0  530 

.1050 

•  1400 

MS 

.oo  so 

.0  550 

4400 

.1000 

so: 

.3010 

.0030 

.0000 

•  SSQO 

sis 

•  SS  10 

.0000 

•0000 

.44*0 

st: 

ss: 

54! 

ARTY  RILLS  11  PER  OAYt  BY 

VUIN  CLASS  Ot 

FOSTURt 

ss: 

ss: 

•  OQO 

•  sss 

•  m 

1.666  .222 

•  ill 

•  666 

.0*0 

•  136 

•  69* 

.574 

st; 

•  lt% 

•  SSI 

.»4 

. 714  •*** 

.744 

•  35* 

•  107 

.644 

•  *21 

•  100 

ss: 

ss: 

.100 

•  sst 

•  SCO 

2.  744  «S7I 

•  000 

.2** 

•  000 

•  704 

•  000 

2«l*t 

so: 

7. S|2 

3. 33* 

•  SSI 

l. ISO  1.1** 

•sot 

•  071 

•  SIS 

•  5*7 

•  000 

•  060 

si: 

st: 

•  too 

2.  £07 

li  2S4 

• *27  .4*4 

•  000 

•  633 

•  000 

•  213 

•  264 

1*60* 

st: 

S*TS  3 

3.3SS 

•  1*5 

3.001  1.S7I 

1.71* 

•  465 

•  1*1 

•  SSS 

•  000 

•  0*0 

ss: 

ss: 

•oso 

.255 

•  OS* 

•  SSS  .III 

•  010 

.061 

•  S50 

•  123 

•  760 

•  064 

ss: 

1.142 

7 «  460 

•  S3  3 

•  ISO  .*73 

.34* 

.077 

•  OSO 

.771 

•  000 

•  010 

it: 

is: 

is: 

to:  arty  soalng  factors  by  fcrioo 

71 t  .IAS  .TSA  .ISO  l.OUO  .ISO  .AIS  .111 
71 : 

7i: 

7A:  CtH  RILLS  II  FFR  10  DAYS)  SY  CLASS  SY  FCRIOO 

ts: 


ts: 

77: 

64.Q00 

1.400 

•  QOO 

•  000 

10.000 

24.000 

36.000 

72.000 

7.600 

76  S 
7*  S 

36.000 

1 .400 

•  000 

2.Q00 

20.000 

34.000 

st.oon 

60.000 

4.200 

*0 : 
si : 

5Q.Q00 

•*00 

•  000 

2.000 

15.000 

24.000 

37.000 

ta.uoo 

2.300 

it: 

S3: 

27.000 

•500 

•  000 

•  000 

6.000 

16.000 

25.000 

10.000 

•  600 

*4  S 

ss: 

17.000 

.4  00 

•  OQO 

•  000 

5.000 

13.000 

16,000 

4.000 

•  500 

is: 

it: 

30.000 

•  300 

•  000 

4.000 

4.000 

14.000 

33.000 

3.000 

.100 

it: 

17.000 

•100 

•  000 

2*000 

3.000 

7.000 

15.000 

1.000 

•  10P 
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UNCLASSIFI60...6XAHPLC  OF  RATCS-XX /HONTHLY-WOL  OUTPUT  DAT*  FROM  UTILITY  FLCON/3 


1: 

5  * 

AO  3198 

AK  VEM  M2 IS  OH  FQ  PI* 

7.63 

3.71 

7.85 

7.68 

3.16 

3.11 

2.29 

3.03 

2.95 

2.60 

3: 

ti » 

A1  4T52 

*D»P  TEST  FAMER."  LH 17  8 

8.06 

10. 65 

9.66 

9.79 

10.69 

10.75 

3.08 

7.06 

io.no 

8.6  7 

5: 

r  * 

A2  71  56 

AIH  IN 0  CIRCLF  H?  W/E 

30.  T3 

60.37 

35.58 

19.79 

69.36 

66.76 

71.56 

19.66 

62.10 

28.86 

V  • 

t: 
s  • 

*7  3TT0 

AIR  C  ONO  FL/UNOM  SO  DO  8 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.0  0 

.0  0 

9! 
io : 

u: 

A2  T8  76 

AIR  COND  F/HA  9000  BT  U 

1.15 

1 .77 

1.68 

1.66 

7.16 

2.10 

.95 

.87 

1.69 

1.31 

*7  6056 

AIR  COHO  18000  BTU 

.60 

.76 

.67 

.67 

.83 

.76 

.33 

.67 

.66 

.51 

v?: 
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UN-'LASSIFIED*»»EXAMPLE  OF  THE  RA TE  S-XX/MONTHLY-Wl  OUTPUT  DATA  FROM  ELCON/3 


t  • 

A  • 

WU98 

AK  VEH  M218  GH  EG  P1A 

M 

• 

• 

U3 

8.52 

5.98 

3.27 

11.82 

6.57 

3.16 

3.31 

7.18 

9  .2  1 

2  ! 

3 • 

A19752 

aoap  test  camera  lmi78 

9.7U 

28.23 

18.63 

13.13 

17.88 

12.51 

9.18 

7.89 

16.58 

9.77 

3  ! 

*2  29  96 

AIMING  CIRCLE  M2  M/E 

37.08 

89.58 

83.38 

57.60 

73.88 

56.98 

28.38 

20.51 

59.0  7 

33.28 

6  * 
t: 
s: 
9: 

*2  3770 

AIR  COND  FL/WNOW  60n0  8 

.00 

.00 

.00 

.DO 

.on 

.00 

.on 

.00 

.00 

.0  0 

*2  38  28 

AIR  CONO  F/MA  9000  8T  U 

1.36 

5.25 

3.91 

1.98 

3.13 

2.99 

1.06 

.98 

2.89 

1  .87 

xo : 
u: 

*2  8088 

AIR  CONO  18000  n~>u 

.71 

.87 

.79 

.62 

2.31 

.89 

.37 

.50 

1.21 

.58 

a? : 
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Chapter  2 

WARF  INTERMEDIATE  MATERIEL  PROCESSOR 


2.1  DESCRIPTION  OF  PROCESSING:  The  WARF  Intermediate  Materiel 

Processor  (WIMP)  is  the  newest  portion  of  the  WARRAMP  methodology,  having 
been  created  in  1980  to  supplant  the  Red  Artillery  Model  (RAM)  Methodology. 
This  program's  implementation  is  tied  to  the  development  of,  and  use  of,  full  force 
array  data  (combat  units,  including  support  type  units)  in  the  COSAGE  model. 
Modifications  of  this  utility  is  anticipated  as  the  further  development  of  COSAGE 
occurs:  for  example,  the  addition  of  tactical  air  support  modules  to  COSAGE. 
The  source  code  employed  in  the  WIMP  is  extractions  from  the  COSAGE  model. 
Hence  the  programmer  will  encounter  some  items  (code)  that  has  no  direct 
bearing  on  the  WIMP  methodology,  but  are  necessary  for  the  completeness  of  the 
program. 


2.1.1  PURPOSE/FUNCT1QNS:  The  purpose  of  this  program  is  to  process  the 
red  force's  artillery  (indirect  fire)  missions  (a  special  output  from  COSAGE)  on  the 
blue  force  array  (unit  data)  with  the  equipment  of  the  units  redefined  as  one  of 
the  (22  each)  artillery  vulnerability  groups,  which  yields  (as  an  output)  a  re-stated 
(by  vulnerability  group)  set  of  unit  losses. 

COSAGE  treats  the  number  of  equipment  types  as  a  variable  and  each  notional 
equipment  type  belongs  to  a  generic  family  possessing  similar  characteristics  for 
direct  fire  and  indirect  fire  vulnerabilities.  However,  the  WARF  methodology 
treats  equipment  types  as  a  fixed  set  (22  each)  of  specific  groups  according  to 
artillery  (indirect)  fire  vulnerability.  Also,  the  units  modeled  in  COSAGE  have 
only  combat  equipment  (major)  items  and  it  is  necessary  to  estimate  losses  of 
other  essential,  but  non-combat  (non-firepower  producing)  items  of  equipment. 
For  these  reasons,  a  units  table  of  organization  and  equipment  (TOE)  is  restated 
from  the  COSAGE  methodology  and  put  into  the  WARF  methodology  context. 

The  output  (unit  losses  by  vulnerability  group)  is  then  processed  by  the  program 
WIMP/LOSS-RATES  to  yield  the  average  equipment  loss  and  a  rate  of  loss  over 
time  (period  of  ground  combat).  Though  the  WIMP  processor  program  is  imple¬ 
mented  in  the  SIMSCRIPT  II. 5  programming  language,  it  does  not  employ  the 
event  or  process  (timing  routines)  features  of  SIMSCRIPT  11.5.  It  performs  the 
data  input  functions,  processes  the  data  computationally  and  writes  the  results 
(output)  in  a  format  ready  for  the  next  MPP  processor.  It  is  a  one-sided  program 
in  the  WARRAMP  methodology,  the  only  interest  being  the  effects  of  the  red 
force's  artillery  fire  on  the  blue  force. 

2.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  WIMP  I/O  structure  is 
depicted  in  Figure  III.  2.1.  This  general  graphic  presents  the  input/output  file- 
name.element-name  normally  associated  with  the  programs  operation. 

2. 1.2. A  INPUT  DATA  AND  DATA  BASE:  The  following  input  files  are 

required.  These  files  are  generally  free-formated.  This  feature  demands  user 
discipline  in  maintaining  a  data  organization  for  ease  of  editing  and  visual  error 
checking.  The  variables  associated  with  the  input  are  defined  in  the  Data  Element 
Dictionary,  paragraph  2.I.2.C.  A  summary  of  I/O  is  presented  in  table  111.2,1. 
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Category,  Type  Unit  (CATTU)  Data.  This  file  is  a  free-formatted  data 
file  with  mixed  mode  data  that  provides  the  parameters  for  the  unit- 
specific  data  that  will  follow  in  the  .CAT$TU  data  file.  This  data  file  is 
a  copy  of  the  COSAGE  Data  Base  file  by  the  name  UN1T$DATA.  The 
categories  and  types  of  units  have  SIMSCRIIPT  II.5  defined  attributes 
and  set  memberships  by  their  definition  as  a  permanent  or  temporary 
entity.  These  relationships  are  depicted  in  Figure  III.  2. 2.  A  sample  of 
the  data  is  presented  in  Figure  III.2.S.  This  data  is  read  into  the 
program  by  the  routine  CAT.TU.INPUT. 

o  Equipment  and  Type  Equipment  (EQUIP)  Data.  This  data  file  is  a  free 
formatted  data  file  with  mixed  mode  data  values  that  provides  the 
parameters  and  descriptors  for  the  equipment  items  assigned  to  each 
unit  in  the  .UNITXXX  file  and  values  necessary  for  the  ground  combat 
modeling  performed  in  COSAGE.  This  data  file  is  prepared  by  the 
WARF  analyst  to  reflect  the  22  equipment  vulnerability  categories  and 
personnel.  The  types  equipment  and  equipment  items  are  SUBSCRIPT 
II.  5  defined  permanent  entities  with  attributes  and  set  relationships  as 
depicted  in  figure  III. 2. 2.  A  sample  of  the  data  file  is  presented  in 
Figure  III.2.9.  This  data  is  read  into  the  program  by  the  routine  EQ.TE.- 
INPUT. 

o  Unit  Data  (.UNITXXX).  This  file  is  a  free  formatted  data  file  with  all 
input  values  being  integers  that  contain  the  force  array  data.  The  force 
is  the  grouping  of  units  in  an  order-of-battle  hierarchy  with  each  unit 
having  certain  features  (attributes).  This  data  file  is  a  copy  of  the 
COSAGE  Data  Base  file  by  the  name  UNIT$DATA.  The  element  name 
has  the  "XXX"  appended  to  enable  user's  to  change  the  name  by 
changing  these  characters  to  a  label  identifying  the  data  file  by  a 
combat  posture.  A  posture  denoting  the  type  of  array  by  the  modeled 
disposition  of  the  forces,  i.e.,  attack,  delay,  defense  intense  or  defense 
light.  The  units  in  this  file  are  sorted  by  the  side  identification  because 
the  analytical  interest  is  in  the  blue  force  data.  The  units  are 
SUBSCRIPT  II. 5  permanent  entities,  have  attributes  and  set  member¬ 
ships  as  depicted  in  figure  III.  2. 3.  A  sample  of  the  data  file  is  contained 
in  figure  III. 2. 10.  This  data  is  read  into  the  program  by  the  routine 
UNIT.INPUT. 

o  Posture,  Environment  and  Mission  Data  (PEM).  This  file  is  a  free- 
formated  file  that  contains  mixed  mode  data.  This  data  is  a  copy  of  the 
COSAGE  Data  File  by  the  name  P$E$M$DATA.  The  purpose  of  the 
data  is  to  initialize  the  types  of  postures  (standing,  open,  foxholes,  in 
tanks,  etc.)  that  will  be  modeled  for  personnel,  and  the  environments 
that  will  be  modeled  (open,  town,  woods),  and  mission  the  tactical  units 
may  be  directed  to  have  (attack,  delay,  defend,  withdraw,  etc).  These 
variables  are  used  to  establish  arrays  and  then  read  in  the  particular 
data.  In  the  SIMSCRIPT  II. 5  language,  these  are  compound  entities,  or 
multidimensional  arrays,  representing  distributions  of  a  tactical  units 
assets  on  the  hypothetical  battlefield.  The  organization  is  depicted  in 
Figure  1II.2.4.  A  sample  of  the  data  file  is  in  Figure  II1.2.X.  This  data  is 
read  into  the  program  by  the  routine  P.E.M. INPUT. 
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read  into  the  program  by  the  routine  P.E.M.INPUT. 

Type  (Artillery  *  Indirect  Fire)  Battery  Input  Data  (TBTRY).  This  file  is 
a  free-formated  file  that  contains  mixed-mode  data.  This  data  is  a 
copy  of  the  COSAGE  data  base  file  by  the  name  TB$DATA.  The  pur¬ 
pose  of  this  data  is  to  initialize  the  types  of  indirect  fire  units  that  will 
be  modeled  among  the  blue  and  red  force  arrays.  The  SIMSCRIPT  11.5 
organization  is  depicted  in  Figure  III. 2.5.  A  sample  of  the  data  file  is  in 
Figure  UI.2.12.  This  data  is  read  into  the  program  by  the  routine  TB.- 
INPUT. 

Battery  (Artillery  -  Indirect  Fire)  Input  (BTRYXX)  Data.  This  file  is  a 
free-formated  file  that  contains  mixed-mode  data.  It  is  a  copy  of  the 
COSAGE  data  base  file  by  the  name  BTRY$DATA.  The  "XXX"  portion 
of  the  file  name  is  edited  by  the  user  to  contain  characters  that  relate 
the  data  file  to  a  specific  force  array  (posture)  in  the  same  manner  that 
the  UNITXXX  file  is  named  to  provide  a  data  audit  trail.  The  purpose 
of  the  data  file  is  to  input  the  indirect  firing  units;  the  battery  are  so 
identified  but  are  also  one  of  the  named  units  input  in  the  UNITXXX 
data  file.  All  of  the  modeled  indirect  firing  units  are  input  for  both 
forces.  The  SIMSCRIPT  II. 5  relationships  are  depicted  in  Figure  II1.2.5 
and  the  sample  data  file  in  Figure  III.2.13.  This  data  is  read  into  the 
program  by  the  routine  BTRY.INPUT. 

Munitions  (for  indirect  firing  systems)  Input  Data  (MUNS).  This  file  is  a 
free-formated  file  that  contains  mixed-mode  data.  It  is  a  copy  of  the 
COSAGE  data  base  file  by  the  name  MUN$DATA.  The  purpose  of  this 
data  is  to  input  the  data  by  munitions  type  for  each  type  of  (indirect 
firing)  battery  modeled.  Each  munition  has  attributes  for  range  and 
lethality  and  has  sets  that  contain  the  values  for  different  fusing 
methods  and  error  over  range  values.  These  relationships  are  depicted  in 
Figures  III.2.5  thru  II1.2.7,  and  the  sample  data  file  is  in  Figure  III.2.14. 
This  data  is  read  into  the  program  by  the  routine  MUNS$INPUT. 

Submunitions  (SUBMUNS)  Input  Data.  This  file  is  a  free  -  formated 
data  file  that  contains  integer  data.  It  is  created  by  the  WARF  analyst 
using  AMSAA  provided  catastrophic  lethai  area  data.  The  purpose  of 
the  data  file  is  to  initialize  the  reliability  and  lethality  of  the  modeled 
indirect  fire  submunitions.  These  submunitions  relate  only  to  the 
improved  conventional  munitions  (ICM).  The  SIMSCRIPT  II. 5  relation¬ 
ships  are  depicted  in  Figure  111.2.7.  A  sample  data  file  is  in  figure 
III.2. 15.  This  data  is  read  into  the  program  by  the  routine  SUBM.INPUT. 

High  Explosive  Lethal  Area  Input  Data  (HELA).  This  file  is  a  free  - 
formated  data  file  that  contains  integer  data.  It  is  created  by  the 
WARF  analyst  using  AM5AA  provided  catastrophic  lethal  area  data. 
The  purpose  of  the  data  vs  to  initialize  the  lethality  data  for  the  high 
explosive  munitions  modeied.  The  internal  data  structure  relationships 
are  depicted  in  Figure  ILL 2. A.  A  copy  of  the  sample  input  data  is  in 
Figure  III. 2. 1 6.  This  daea  ts  read  by  the  routine  HE. LA. INPUT. 
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o  SIMU5-XX  Input  data  contains  the  fire  mission  data  that  is  the  resultant 
output  from  a  COSAGE  simulation.  This  file  is  read  as  a  free  formated 
data  file  with  mixed-mode  data.  This  data  is  the  basis  for  the  computa¬ 
tions  of  the  WIMP  program,  and  it  is  read  by  the  WARF.ARTY  routine. 
A  sample  of  this  input  data  file  in  in  Figure  III. 2. 17. 

o  WIMP/TOE-IN  input  data  file  contains  the  restated  table  of  organiza¬ 
tion  and  equipment  structure,  according  to  the  artillery  vulnerability 
groups  for  each  type  unit  modeled.  This  data  is  an  output  from  the 
WIMP/TOE-IN  program  and  a  sample  of  this  data  is  illustrated  in  Figure 
III.2.18.  This  data  is  read  into  the  WIMP  program  by  the  WARF.ARTY 
routine. 

2. 1.2.B  OUTPUT  DATA  AND  DATA  FILES:  This  program  produces  two  output 
files  from  the  program  execution.  They  are  as  follows;  refer  to  table  III. 2.1  for  a 
summary. 

o  Run  output  is  produced  from  the  demand  mode  -  submitted  run  stream 
via  the  system  PRINT$  file;  default  is  logical  unit  6.  Refer  to  Volume  1, 
Figure  III.2.2  for  the  runstream.  Through  the  Executive  8  commands 
the  user  puts  the  WIMP  program  into  execution  and  performs  an  edit  of 
the  successful  program  runs  into  a  breakpointed  file  called  "XXPRINT" 
The  runstream  itself  must  be  edited  on  line  by  the  user  to  substitute 
appropriate  labels  for  output  file  element  names  in  lieu  of  the  "X" 
characters. 

o  A  print  file  cataloged  as  XXWIMPOUT  (Figure  III. 2. 33)  is  initialized  by 
the  program  to  capture  the  computed  output  of  the  WARF.ARTY 
routine.  The  output  is  written  with  formating  statements  and  all  output 
data  fields  are  decimal  (real).  Logical  Unit  3  is  applied  for  this  print 
file;  however  the  output  data  is  edited  (copied)  into  a  file  element 
version  called  .WIMP/XX-X  at  the  conclusion  of  a  normal  program 
execution.  The  "X"  labels  on  the  version  must  be  edited  (in  runstream) 
by  the  user  and  replaced  by  characters  denoting  the  source  (posture) 
UNITXXX  input  file  and  the  run  iteration  number  for  an  audit  trail. 
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X 
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X 
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Table  III.2.1 
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WARTIME  REPLACEMENT  FACTORS  (WARF) 
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Figure  III.2.5 
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Figure  III.  2. 6 
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2.1.2.C  DATA  ELEMENT  DICTIONARY:  The  variables  utilized  with  the  WARF 
Intermediate  Materiel  Processor  are  defined  in  the  S1MSCRIPT  II. 5  Preamble 
(Figure  IIi.2.19).  The  Preamble  established  the  data  structure  through  the  defini¬ 
tion  of  permanent  or  temporary  entities  and  attributes,  and  they  may  own  and  or 
be  members  of  sets  or  lists  of  entities.  Refer  to  the  reference  SIMSCRIPT  II. 5 
manuals  (ref  S  T,  U)  for  details.  The  preamble  declarations  of  the  WIMP  are 
extensive  and  beyond  the  requirements  of  the  processor  because  it  is,  like  the 
input  routines,  an  adaptation  from  the  COSAGE  model.  For  this  reason  the  data 
element  dictionary  will  address  only  those  items  used  specifically  in  the  WIMP. 

o  Global  variables:  The  following  variables  are  defined  for  use 
throughout  (globally)  the  program. 


Descriptor  word 

Mode 

ARTILLERY 

Integer 

BLUE 

Integer 

BLUE.UNIT.CNTR 

Signed  Integer 

CBTAVN 

Integer 

DATA.ERROR 

Signed  Integer 

DEBUG 

Signed  Integer 

FALSE 

integer 

HIT 

Ir.reger 

MANEUVER 

Integer 

Value 

Definition 

2 

One  of  the  four 
categories  of  units. 

2 

One  of  the  two  sides 
modeled. 

VAR 

A  counter  for  the 
number  of  Blue 
Units. 

4 

Abbreviation  for 
"Combat  Aviation" 
and  one  of  the  four 
categories  of  units. 

Var  tO,l) 

A  flag  for 
input  routines. 

Var  (0,1) 

A  flag  for  selective 
writing  of  debugging 
information. 

0 

A  switch  value. 

1 

A  discriptor  for 
program  text,  a 
flag. 

1 

One  of  the  four 
categories  of  units} 
denotes  those  units 
that  may  move  on 
the  battlefield, 
infantry  and  Armor. 
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MISS 

Integer 

2 

A  discriptor  for  :  | 

program  text  and  J 

a  flag.  I 

N.BTRY 

Integer 

Q-N 

The  number  of  | 

batteries  (artillery)  1 

units  modeled.  i 

a 

N. CATEGORY 

Integer 

0-N 

The  number  of 
categories  modeled. 

N.  ENVIRONMENT 

Integer 

Q-N 

The  number  of  J 

combat  envir¬ 
onments  modeled.  1 

N. EQUIPMENT 

Integer 

0-N 

The  number  of  : 

equipment  items  .j 

modeled.  ^ 

j 

The  number  of 

artillery  HE  1 

munitions  fuzes  1 

modeled.  j 

N.FUZE 

Integer 

0-N 

N.GROUPING 

Integer 

3 

The  number  of  unit  1 

groups  modeled;  i 

Artillery  j 

Manuever  or 

Support.  \ 

N.HE.MUNITION 

Integer 

0-N 

The  number  of  high  ■ 

explosive  munitions 

modeled. 

N.HE.RANGE.HACK 

Integer 

0-N 

The  number  of 

artillery  HE  range  i  j 

petitions  modeled.  ; 

N.IC.MUNHIONS 

Integer 

0-N 

The  number  of  ! 

improved  | 

conventional  j  ] 

(with  submunitions)  j 

munitions  modeled.  j 

N.IC.RANGE.H^GK 

Integer 

0-N 

1 

The  number  of 

artillery  IC  range  1 

partitions  modeled. 

N.  MISSION 

Integer 

0-N 

The  number  of 

missions  (of  units)  j 

modeled. 
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N. POSTURE 

Integer 

0-N 

The  number  of 
personnel  postures 
modeled. 

N.SIDE 

Integer 

2 

The  number  of 
forces  or  sides 
modeled. 

N. SUBMUNITION 

Integer 

0-N 

The  number  of 
submunitions  for  the 
ICM  artillery  rounds 
modeled. 

N.TB.N.FM 

Integer 

5 

The  number  of 
fire  missions  per 
type  battery. 

N.TYPE.BTRY 

Integer 

0-N 

The  quantity  of 
types  of  indirect 
fire  (artillery) 
batteries  modeled. 

N.TYPE.EQUIP 

Integer 

0-N 

The  quantity  of 
types  (groups)  of 
equipment  modeled. 

N.TYPE.UNIT 

Integer 

0-N 

The  number  of 
types  of  units 
modeled. 

RED 

Integer 

1 

One  of  the 
two  sides  modeled, 
the  side  color. 

SUPPORT 

Integer 

3 

One  of  the  four 
groups  of  units. 

TRUE 

Integer 

1 

A  flag,  descriptor 
for  the  program 
text. 

YES 

Integer 

1 

A  flag,  descriptor 
for  the  program 
text. 
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Data  Variables  -  Relationship  of  the  following  variables  can  easily 
be  established  by  reviewing  the  appropriate  Figure  111.2.2  -  III. 2  - 
7. 


Name  Mode 

BTRY  Integer  -  Permanent  entity 


BY. BN  Integer  -  attribute 


BY.PGM.CAP  Integer  -  attribute 


BY. TYPE  Integer  -  attribute 


BY.UNIT  Integer  -  attribute 


CATEGORY  Integer  -  Permanent  Entity 


CPM. UNWARNED  Integer  -  attribute 


Definition 


An  indirect  fire 
unit;  a  pointer, 
value  1  to  N.BTRY. 

The  number  of  the 
higher  headquarters 
or  the  battalion  to 
which  a  battery 
may  belong. 

The  precision  guided 
munitions  (laser 
guided)  capability 
of  the  battery.  May 
be  "yes"  or  "no". 

The  type  of  battery 
value  for  this  one 
battery;  a  value 
from  1  to 
TYPE. BTRY. 

The  value  of  the 
unit  identification 
number  of  this  unit 
from  the  unit  data 
file.  Identifies 
the  battery  to  unit 
relationship. 

A  definition  of  a 
group  of  units  by 
their  function;  i.e. 
field  artillery, mech 
infantry,  a  pointer. 

The  percent  of  a 
unit  according  to 
category,  posture 
and  mission 
considered  to  be 
unwarned  against  an 
artillery  attack. 
Percent  times  100. 
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Name  Mode 

CPM.WARNED.FRACT  Integer-attribute 


CT.GROUP  Integer-attribute 


CT.MIN.FEBA  Integer-attribute 


CT.NAME 


Alpha-attribute 


EC.FRACT  Integer-attribute 


ENVIRONMENT  Integer-Permanent  Entity 


Definition 

The  percent  of  a 
unit  by  category, 
posture  and  mission 
considered  to  be 
warned  against 
an  artillery  attack. 
Percent  times  100. 

The  grouping  to 
which  a  category 
of  units  will  belong; 
a  pointer 
to  the  group.  The 
defined  value  of  the 
group  1,  2  or  3. 

A  distance,  in 
decameters,  from 
the  forward  edge  of 
the  battle 
area  (FEBA)  in 
which  a  category 
of  units  will  be 
located. 

The  name,  in  6 
charactors  or  less 
of  the  categories  of 
units  modeled. 

The  percent  (times 
100)  of  a  unit  by 
category,  of 
equipment  that  may 
be  found  in  a 
modeled 
environment. 

One  of  the  modeled 
environments  that 
military  units  may 
be  found  in  open, 
town  or  woods. 
Value  from  I  to 
N. ENVIRONMENT. 


EN.NAME 


EPS.LA.PERS 


EQUIPMENT 


EQ.TE.PTR 


ES.RELY 


FUZE 


FZ.HE.RELY 


Alpha-attribute 


Integer-attribute 


Integer-Permanent  Entity 


Integer -attribute 


Integer-attribute 


Integer-Permanent  Entity 


Integer-attribute 


The  alphanumeric 
name  (up  to 
6  charactors) 
of  a  modeled 
environment. 

The  lethal  area,  in 
square  meters, 
times  10  of  a 
submunition  against 
personnel  in  a  given 
environment  and 
posture. 

One  of  the  modeled 
equipments;  value 
will  be  from  1 
to  N. EQUIPMENT. 

A  pointer  to  the 
type  of  equipment 
(generic  family)  in 
which  the  equipment 
belongs.  A  value 
from  1  to 
N.TYPE.EQUIP.  . 

The  probability 

times  100 

of  a  submunition 

successfully 

detonating  in  a 

particular 

environment. 

One  of  the  modeled 
fuses  for  indirect 
fire  munitions, 
a  value  from  1  to 
N.FUZE. 

The  probability 
times  100, 
of  the  fuze  mounted 
on  a  high-explosive 
round, in 
denotating  as 
prescribed. 
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Name 

mode 

Definition 

FZ.NAME 

Alpha-attribute 

The  alphanumeric 
name,  up  to  6 
charactors  of  the 
modeled  indirect 
fire  munitions 
fuses. 

GP.NAME 

Alpha-attribute 

The  alphanumeric 
name,  up  to  6 
charactors  of  a 
modeled  unit 
grouping;  Artillery, 
Maneuver  Support. 

GROUPING 

Integer-Permanent  Entity 

A  modeled  group  of 
military  units 
according  to  their 
tactical  function. 
Value  from  1  to 
N.GROUPING. 

Refer  to  GP.NAME. 

HC.WPN.TYPE 

Integer-attribute 

The  pointer  to  the 
type  of  weapon(s) 
modeled  on  a  type 
of  helicopter.  Value 
from  1  to 

N. TYPE.  WEAPON. 

HE.COST 

Integer-attribute 

The  dollar  cost  of  a 
high  explosive 
munition.  Used 
selectively  in 
logic  tests  to  select 
the  least  cost 
munition. 

HE.ID 

Alpha-attribute 

The  alphanumeric 
name,  up  to  6 
charactors  given  a 
high  explosive 
munition. 

HE.  MUNITION 

Integer-Permanent  Entity 

A  modeled  high 
explosive 

munition;  value 
from  1  to 
N.HE.MUNITION. 


67 


,•': .-  j.,-.-: -  i  ■  . 


Name 


Mode 


Definition 


HE.RANGE.HACK 


HE.RH.RANGE 


HE.RH.ROUND.CPE 


HE.RH.TOTAL.CPE 


HE.ROUND.RAD 


HE.  VOLLEY. RAD 


Integer-Permanent  Entity 


Integer-attribute 


Integer-attribute 


Integer-attribute 


Integer-attribute 


Integer-attribute 


A  modeled  range 
partition  for  high 
explosive  munitions 
based  on  the  fact 
that  munitions 
effective  and  firing 
system  error  is  a 
function  of  range. 

A  range, in 
decameters 
applicable  to  a  high 
explosive  munitions 
range  back 
(partition). 

The  circular 
probable  error 
in  delivery  defined 
in  meters,  of  a  high 
single  explosive 
round  within  a  range 
back  (partition). 

The  circular 
probable  error 
in  meters  in  the 
delivery  of  any 
quantity  of  high 
explosive  rounds 
within  a  range  back 
(partition). 

The  burst  radius  of  a 
high  explosive 
munitions  -  one 
round  in  meters. 

The  aggregrate 
burst  radius  of  a 
volley  of  high 
explosive  minitions 
assuming  the 
battery  is  deployed 
in  a  constant 
formation  and  firing 
a  constant  sheaf. 
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Name 

Mode 

Definition 

HE.WEIGHT 

Integer-attribute 

The  weight  of  the 
artillery  round,  in 
standard  units  - 
normally  pounds. 

Used  to  compute  the 
tonnage  of 
munitions  expended. 

IC.COST 

Integer-attribute 

The  dollar  cost  of  a 
improved  convent¬ 
ional  munition. 

IC.ID 

Alpha-attribute 

The  alphanumeric 
description,  up 
to  6  characters,  of 
an  improved 
conventional 
munition. 

IC. MUNITION 

'.r.teger-Permanent  Entity 

A  modeled  improved 
conventional 
indirect  fire 
munition;  value 
from  1  to 
N.IC.MUNITION. 

IC.N.SUBM 

Integer-attribute 

The  quantity  of 

submunitions 

contained  within  an 

improved 

conventional 

munition. 

IC.RANGE.HACK 

Integer-Permanent  Entity 

A  modeled  range 
partition  for 
an  improved 
conventional 
munition. 

IC. RELIABILITY 

Integer-nttribute 

The  probability 
times  100  of 
an  improved 
conventional 
munition  detonating. 
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Name 

Mode 

Definition 

IC.RH.RANGE 

Integer-attribute 

The  range,  in 
decameters  of 
an  improved 
conventional 
munition  range 
partition. 

IC.RH.ROUND.CPE 

Integer-attribute 

The  circular  error 
probable,  in  meters 
of  an  improved 
conventional 
munitions  within  a 
range  back 
(partition). 

IC.RH.TOT  AL.CPTE 

Integer  attribute 

The  circular  error 
probable,  in 
meters,  of  an 
improved 
conventional 
munition  volley 
within  a  range 
back  (partition). 

IC.SUBM.INDEX 

Integer-attribute 

A  pointer  to  the 
submunition  that  is 
a  component  of  the 
IC. MUNITION;  value 
from  1  to  N.SUBM. 

1C.TB.1NTERCEPT 

Real-attribute 

A  value  used  to 
compute  the 
effectiveness  of  the 
improved 
conventional 
munition;  a  function 
of  the  firing  systems 
tradjectory  by  type 
battery. 

IC.TB.SLOPE 

Real-attribute 

The  slope  of  the 
delivery  trajectory 

of  a  type  firing 
battery  for 
improved 
conventional 
munitions. 
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Name 

Mode 

Definition 

IC.  VOLLEY, RAD 

Integer-attribute 

The  radius  of 
effects  of  an 
improved 
conventional 
munitions  volley  of 
rounds,  in  meters. 

IC.WE1GHT 

Integer-attribute 

The  firing  weight  of 
the  improved 
conventional 
munition  round,  a 
standard  measure, 
normally  in  pounds. 

MAN.UNIT 

Integer-Temporary  Entity 

A  maneuver  unit, 
modeled;  one 
of  the  units  input. 
Value  is  machine 
address. 

MISSION 

Integer-Permanent  Entity 

A  modeled  feature 
of  military  units;  a 
value  from  1 
to  N. MISSION. 

MN.NAME 

Alpha-attribute 

The  aphanumeric 
name,  up  to  6 
charactors  of  the 
mission. 

MU.CRIT.NO 

Integer-attribute 

The  quantity  of 
critical  or  combat 
essential  items 
belonging  to  a 
maneuver  unit. 

MU.REINF.IND 

Integer-attribute 

An  index  denoting 
that  the  maneuver 
unit  can  or  cannot 
provide 

reinforcement  to  a 
unit  requiring 
reinforcement. 

POSTURE 

Integer-Permanent  Entity 

A  modeled  feature 
of  military 
units;  a  value  from 

1  to  N. POSTURE. 
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Name 

Mode 

Definition 

PT.NAME 

Alpha-attribute 

The  alphanumeric 
name  given  to  a 
modeled  posture,  up 
to  6  charactors. 

REPF.LA.PERS 

Integer-attribute 

The  lethal  area  in 
square  meters, 
times  10  of  a  high 
explosive  munition 
given  a  fuze,  range 
partition,  posture 
and  environment 
against  personnel. 

RTEF.LA.EQUIP 

Integer-attribute 

The  lethal  area  in 
square  meter  times 
10,  of  a  high 
explosive  munition, 
given  a  fuse, 
environment,  and 
range  back 
(partition)  against  a 
type  of  equipment. 

SIDE 

Integer-Permanent  Entity 

A  modeled  force, 
blue  or  red  (2,  1). 

SM.NAME 

Alpha-attribute 

A  alphanumeric 
name,  up  to 

6  charactors  of 
submunitions. 

SUBMUNITION 

Integer-Permanent  Entity 

A  modeled  feature 
of  improved 
conventional 
munitions. 

TB.HOW.EQ.ID 

Integer-attribute 

The  type  battery's 
pointer  to  the  type 
of  equipment  that 
identifies  its  weapon 
system;  a  value 
from  1  to 

N. EQUIPMENT. 
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Name 

TB.LFAIL.MEAN.RNDS 


TB.LFAIL.REPAIR 


TB.MARCH.ORDER 


TB.MAX.FEBA 


Mode 

Definition 

Integer-attribute 

The  long  term,  or 
high  number  of 
rounds  that  can  be 
fired  by  a  weapon 
system  of  the  type 
battery,  and  a  firing 
system  failure  will 
occur. 

Integer-attribute 

The  long  term,  or 
high  hours  (times  10) 
necessary  to  effect 
the  repair  of  a 
weapon  system  of 
the  type  battery. 
High  value  of  a 
uniform  distribution. 

Integer-attribute 

The  time  in  minutes 
(a  delay)  necessary 
for  the  type  of 
battery  to  be 
prepared  to  move  or 
displace  from  one 
firing  position  to 
another. 

Integer-attribute 

The  distance,  in 
decameters  that  is 
the  maximum 
allowable  for  the 
type  battery  to  be 
located  from  the 
FEBA.  A  unit 
identified  as  this 
type  battery,  that 
exceeds  this 
distance,  will  be 
issued  an  order 
to  displace  forward, 
or  towards 
the  FEBA. 
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Name 


Mode 


Definition 


TB.MAX.FIRE.RATE 


TB.MAX.PREP 


TB.MAX.RANGE 


TB.MAX.RAP.RANGE 


TB.MIN.FEBA 


Integer-attribute 


Integer-attribute 


Integer-attribute 


Integer-attribute 


Integer-attribute 


The  maximum  rate 
of  fire  for  the 
type  of  battery, 
given  a  firing 
system.  The  highest 
sustained  rate 
of  fire  for  the  total 
firing  systems 
in  rounds  per 
minute. 

The  maximum 
amount  of  time 
(minutes  times  10) 
that  a  type  of 
battery  will 
require  to  prepare 
for  a  given  fire 
mission.  Upper 
value  for  a  uniform 
distribution. 

The  maximum  range 
that  a  firing  system 
of  the  type  battery, 
in  decameters. 

The  maximum  range 
that  a  firing  system 
of  the  type  battery 
can  fire  a  rocket  - 
assisted  projectile, 
in  decameters. 

The  distance,  in 
decameters  that 
is  the  minimum 
allowable  for  a 
battery  of  this 
type.  A  movement 
order  will  be 
generated  to  move 
such  a  battery  a 
distance  to  the 
rear  (array)  from 
the  FEBA. 
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Name 

Mode 

Defit.  nor, 

TB.MIN.HOW 

Integer-attribute 

The  qu.oiti  r.\  jf 
firing  systems  that 
is  the  mir  mum 
allowable  for  a 
battery  of  this  type 
to  execute  fire 
orders.  A  battery 
that  has  less  than 
this  quantity  is  a 
non-firing  unit.  The 
losses  may  be 
permanent  or 
temporary. 
Temporary  implies 
that  the  howitzers 
are  in  repair. 

TB.MIN.PREP 

Integer-attribute 

The  minimum 
amount  of  time,  in 
minutes  (times  10) 
that  a  battery  of 
this  type  will 
require  to  prepare 
for  (a  delay) 
a  fire  mission.  The 
low  end  of  a 
uniform  distribution. 

TB.MW. THRESHOLD 

Integer-attribute 

A  scaler  value  for 

of  compound  entities 

this  type  of 

(2  -  dim  array) 

battery's  military 
worth  thresholds 
for  the  fire  order 
queue.  A  method  of 
ranking  fire  missions 
by  the  value  of  the 
target.  A  target 
having  less  than  a 
minimum  threshold 
value  will  not  be 
fired  upon  by  this 
type  of  battery. 
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Name 

Mode 

Definition 

TB.NAME 

Alpha-attribute 

A  user  developed 
name  for  this  type 
of  battery,  up  to  6 
characters. 

Normally  the 
equipment  type  is 
associated  with  the 
name,  e.g.,155HOW, 
etc. 

tb.n.fm 

Integer-permanent 

The  number  of  fire 
missions  this  type  of 
battery  may  have. 
Set  to  a  value  of  5. 

TB.N.HOW 

Integer-attribute 

The  number  of  firing 
systems  the  type  of 
battery  will  have  at 
full  (TOE)  strength. 

TB.OCCUPY 

Integer-attribute 

The  amount  of  time, 
in  minutes,  (a  delay) 
that  a  battery  of 
this  type  will  use  in 
occupying  a  new 
firing  position 
at  the  conclusion  of 
a  move. 

TB.SF  AIL,  ME  AN.  RN  DS 

Integer-attribute 

The  mean  number  of 
rounds  that  a 
battery  of  this  type 
will  expend  before 
a  short  term  failure 
(minor)  will  occur. 

TB.SFAIL.REPAIR 

Integer-attribute 

The  mean  time  in 
hours  (times  10) 
that  a  firing  system 
of  a  type  battery 
will  be  in  repair  for 
a  short  term 
(minor)  failure. 

The  total  available 
firing  systems  of  a 
battery  of  this  type 
is  decremented  by 
one  for  the  period. 

— ‘  -  V'ti 
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Name 


Mode 


Definition 


TB.TM.CLASS  Alphanumeric-attribute 


TB.TM.LINK  Integer-temporary  entity 


TB.TM.RAP 


Integer-attribute 


TES.LA.EQUIP  Integer-attribute 

of  a  compound  entity 


TU.CAT 


Integer-attribute 


TU.CRITICAL.EQUIP  Integer-attribute 
INDEX 


TU.CRIT.NO  Integer-attribute 


The  classification  of 
type  munitions  for 
the  type  of  batterys; 
up  to  six  characters 
-  the  program 
expects,  and  uses 
HE  or  ICM. 

A  linkage  created  to 
relate  type 
munitions  to  type 
batteries.  The 
value  is  the  true 
machine  address. 

A  key  value  0  or  1 
to  indicate  that  (1) 
the  type  munitions 
is  a  rocket  assisted 
projectile. 

The  lethal  area  in 
square  meters  of  a 
munition  against  a 
type  equipment, 
in  an  environment, 
by  a  submunition 
of  a  ICM. 

The  pointer  to  the 
category  of  units 
to  which  a  type  unit 
belongs.  Value  from 
1  to  N.Category. 

A  yes  (1)  or  no  (0) 
value  set  to 
determine  if  the 
type  unit,  type 
equipment  link  is  a 
critical 

(combat)  equipment 
item. 

A  counter  value 
containing  the 
number  of  items  of 
critical  equipment 
that  a  type  unit  has. 
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.  V 


Name 

Mode 

Definition 

TU.FREQ 

Integer-attribute 

A  counter  value 
with  the  number 
of  type  units  of  this 
type  modeled. 

TU.LEVEL 

Alphanumeric-attribute 

A  value,  up  to  6 
characters  that 
names  the  type  of 
unit,  e.g., 

CO,  PLT,  BNHO, 
etc. 

TN  .MIL.  WORTH 

Integer-attribute 

A  scalar  value  given 
to  types  of  units  by 
the  user/analyst. 

TU.MOVE.RATE 

Integer-attribute 

The  maximum, 
unopposed  rate  in 
hexadecameters  per 
hour;computation- 
ally  used  in  unit 
movement,  degraded 
by_jerrain, 
opposition  and  day 
or  night  factors. 

TU.NTE.ID 

Integer-attribute 

The  pointer  to  an 
equipment  type 
that  is  not  a  type 
belonging  to  the 
type  unit.  Value 
of  1  to 

N.  TYPE.  EQUIP¬ 
MENT. 

TU.OPP.PRIORITY 

Integer-attribute 

A  value  based  upon 
an  analyst  developed 
priority  scheme 
for  types  of  units. 

TU.PRIN.TE 

Integer-attribute 

A  pointer  to  the 
principle  type 
of  equipment 
employed  by  the 
type  of  unit;  value 
of  1  to  N.TYPE. 
EQUIPMENT. 

78 


Name 

Mode 

Definition 

TU. RADIUS 

Integer-attribute 

The  typical  radius, 
in  meters,  of  this 
type  of  unit  in  a 
combat  deployment. 

TU.SIDE 

Integer-attribute 

The  pointer  to  the 
side  to  which  this 
unit  is  represented 
within,  value  is  1  to 

2. 

TU.SUP.PRIORITY 

Integer-attribute 

A  value  based  upon 
an  analyst  developed 
priority  scheme  for 
types  of  units  in  a 
support  role. 

TU.TE.ID 

Integer-attribute 

A  pointer  to  the 
type  of  equipment 
the  link  represents; 
a  value  of  1  to 

N. TYPE.EQUIPMENT. 

TU.TE.QUANT 

Integer-attribute 

The  quantity  of 
equipment  of  the 
type  represented  by 
the  link. 

TYPE.BTRY 

Integer-entity 

The  pointer  value  of 
a  type  battery 
modeled;  value  from 

1  to  N. TYPE.BTRY. 

TYPE.EQUIPMENT 

Integer -entity 

The  pointer  value  of 
a  modeled  type  of 
equipment;  value 
from  1  to 
N.TYPE.EQUIP. 

TYPE.UNIT 

Integer-entity 

The  pointer  value  of 
a  modeled  type 
unit;  value  from  1  to 
N. TYPE.UNIT. 

UNIT 

Integer-entity 

The  pointer  value  of 
a  modeled  unit, 
value  from  1  to 
N.UNIT. 
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Name 


Mode 


Definition 


UN.LAST.ARTY.ENG  Integer-attribute  The  time  the  unit 

was  last  engaged 
an  opponent 
artillery  unit; 
in  minutes  times 
100. 

2.1.3  PROGRAM  PROCESSING:  The  high  level  program  features  are 
depicted  in  Figure  III.2.32.  The  MAIN  routine  is  the  driver  with  the  data 
definitions  and  background  having  been  established  by  the  PREAMBLE.  With 
exception  to  the  ERROR. STOP  routine,  all  of  the  other  routines  perform  the  data 
input  function.  All  computations  are  performed  in  the  WARF.ARTY  routine. 

2. 1.3. A  PROGRAM  RUN  DESCRIPTION:  The  procedure  or  execution  run  file 
is  discussed  in  Volume  I  of  this  documentation  set,  Chapter  2,  of  Section  III.  The 
file  element  resides  in  a  permanently  cataloged  file  and  is  designed  to  be  executed 
in  the  demand  mode  from  a  computer  terminal  via  the  @ADD  command.  All  data 
is  read  from  logical  unit  5  (READ$)  with  exception  to  the  E5SIMUX-X  program 
file  which  reads  data  from  logical  unit  4.  The  computational  output  is  temporarily 
captured  in  a  permanent  print  file  labeled  XXWIMPOUT.  in  logical  unit  3.  It  is 
subsequently  edited  (copied)  to  a  file  element  called  PF.WIMP/XX-X.  The 
program  run  output  is  captured  in  a  breakpointed  file  (logical  unit  6  -  PRINT$), 
cataloged  by  the  user  as  XXPRINT.  The  program  calling  and  execution  sequence 
is  as  depicted  in  Figure  III.2.32.  The  program  run  output  will  be  highlighted  with 
processing  statements  that  enable  the  user  and  programmer  to  follow  the 
sequence  of  execution  activity.  These  statements  ares 

o  DEBUG  statements  -  The  debug  key  is  set  to  "TRUE"  in  the  MAIN 
routine  and  all  logical  tests  for  printed  debug  statements  will  be  satis¬ 
fied.  Thus  the  output  will  be  written  with  these  programmed 
statements  with  any  specified  variable  on  to  unit  6. 

o  PRINT  statements  -  The  routines  of  the  program  have  over  22 
unbounded  print  statements,  directing  that  a  formatted  statement 
and/oi  variable  be  written  onto  the  output  file  Unit  6. 

o  LIST  Statements  -  The  SIMSCRIPT  11.5  programming  language  enables 
programmers  to  incorporate  "LIST"  statements  into  the  program.  This 
statement  will  cause  selected  attributes  of  entities  or  an  expression  to 
be  written  onto  the  output  unit  6  in  a  standard  format  with  labels. 

o  Bounded  PRINT  Statements  -  The  routines  have  print  statements 
bounded  by  programmed  logic  tests  other  than  the  Debug  test.  These 
logic  tests,  when  satisfied  will  cause  a  programmer  formatted  state¬ 
ment  and/or  variable  to  be  written  on  the  output  file,  unit  6. 

The  program  may  stop  prematurely  by  a  subroutine  call  to  the  routine  ERROR.- 
STOP  by  either  the  EQ.TE.INPUT  routine  if  a  logic  test  fails,  or  from  the  UNIT.- 
INPUT  routine  if  a  data  logic  test  fails.  A  "STOP"  may  be  executed  in  the  routine 
BTRY.INPUT  at  two  different  locations  if  logic  tests  for  data  fails.  If  this  occurs, 
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a  normal  job  finish  or  termination  is  made. 


2.1.3. B  PROGRAM  LOGIC:  The  program  routines  are  coded  with  the  structured 
IF-ELSE- ALWAYS  (or  synonyms)  and  controlled  DO-LOOP's.  A  minimum  number 
of  GO  TO  'LABELS'  exist  in  the  program  (one  in  BTRY. INPUT).  Some  program 
routines  have  been  coded  with  indentation  to  highlight  the  structure,  all  of  which 
enables  programmers  to  follow  the  logic  as  coded.  In  reviewing  the  language 
features  coded,  the  maintenance  programmer  should  review  the  substitutions 
created  by  the  ''Define  to  mean”  statements  in  lines  614  through  632  of  the 
PREAMBLE.  The  uses  of  syntax  in  the  program  differs  from  the  SIMSCRIPT  11.5 
manuals  because  of  these  substitutions;  all  which  make  the  program  (text)  logic 
more  apparent.  The  variable  background  mode  for  all  the  routines  and  the  pre¬ 
amble  is  declared  as  integer,  which  means  that  unless  explicity  declared 
otherwise,  all  variables  will  be  treated  as  an  unsigned  (but  positive)  integer 
value.  Thus  mixed  mode  computations  or  statements  will  yield  positive  integer 
values.  The  WIMP  program  is  flow  charted  in  Figures  III.2.34  through  III.2.45.  In 
instances  where  expressions  consist  of  a  lengthy  sequence  of  computations  the 
word  "COMP.VAL"  appears.  The  programmer  should  refer  to  the  source  code  for 
the  expression. 

2. 1.3. C  PROCESSING  FEATURES:  In  addition  to  the  features  stated  under  the 
program  run  description,  the  following  items  are  of  note: 

o  Variable  packing:  The  variables  named  in  the  Preamble  are  not  packed 
into  fractions  of  words.  This  fact  marginally  (for  this  program) 
increases  the  amount  of  main  core  required,  but  also  reduces  the 
possibility  of  error. 

o  Units  of  Measure: 

Ranges  are  expressed  in  3  manners;  1)  meters,  the  metric  unit  of 
measure,  or  2)  in  decameters,  which  is  number  of  meters  divided  by  a 
factor  of  iO,  or,  3)  hexadecameters,  which  is  defined  as  the  number  of 
decameters  multiplied  by  10  and  divided  by  16. 

Reliability  and  probabilities  are  expressed  in  integer  value  by  multiply¬ 
ing  the  basic  percent  expression  by  100  and  rounding. 

o  Data  Bank:  The  dynamic  storage  allocation  feature  of  SIMSCRIPT 
generally  makes  the  DBANK  information  a  mat*'*r  of  interest  during  a 
simulation;  this  program,  which  is  computational,  or  accounting  in 
nature,  does  not  employ  the  timing  routines.  Thus  the  DBANK  value  is 
of  marginal  value.  The  DBANK  is  the  number  of  words  (decimal) 
rounded  to  the  nearest  thousand  required  by  the  data  bank  segments. 

o  Programming  conventions:  The  unusual  variable  name  length  capability 
of  the  SIMSCRIPT  II. 5  programming  language  enables  the  program  to 
employ  an  english  like  text  which  facilitates  understanding  and  compre¬ 
hension.  In  general  the  first  letters  of  an  entity  are  used  in  the  naming 
of  its  attributes;  e.g.,  TYPE. BTRY  has  a  TB.NAME  and  TYPE.UNIT  hai 
a  TU. LEVEL.  These  naming  conventions  establish  relationships  useful  h 
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reading  and  maintaining  the  program.  Refer  to  the  referenced 
SIMSCRIPT  manuals  for  name  length  requirements. 

2.2  OPERATING  ENVIRONMENT*  The  program  is  executed  via  runstream 
submission  in  a  demand  mode  environment  from  the  computer  terminal.  Refer  to 
Volume  I  for  the  runstream.  At  present  the  demand  for  main  core  memory  is 
sufficiently  low  to  permit  this  procedure  and  be  within  the  operating  policy.  The 
system  manages  the  program  execution,  and  the  runstream  referred  to  in  Volume 
l,  contains  all  the  necessary  controls. 

2.2.1  HARDWARE:  The  program  executes  on  the  UNIVAC  1100/82  OS  with 
the  fixed  and  removable  disk  storage  space  as  requested  in  the  runstream. 

2.2.2  SUPPORT  SOFTWARE:  The  program  compilation  and  execution 
requires  the  following  system  processors: 

@MAP  —  calls  the  MAP  processor  or  collector  to  collect 

the  relocatable  object  code. 

@ED  —  call  the  editor  processor 

@SIM25  —  The  SIMSCRIPT  II.5  language  processor 

SDDL  —  The  program  may  be  processed  through  the 

Software  Design  and  Documentation  Language 
(SDDL)  processor. 

2. 2. 2.  A  OPERATING  SYSTEM:  The  program  was  developed  on,  and  tested  on 
the  UNIVAC  1100/82  OS.  the  standard  features  of  the  system  (control  language, 
processors,  terminals,  on-line  storage)  provide  the  essential  support. 

2.2.2. B  COMPILER:  The  SIMSCRIPT  II. 5  is  maintained  on  the  USACAA  system. 
This  program  was  developed  under  the  Release  6.3  compiler.  Release  7.0  was 
installed  in  3uly  1981  and  this  program  is  compatable  without  modification,  i.e., 
there  are  no  compiler  enhancements  that  are  in  conflict  with  the  program. 

2.2.3  DATA  BASE:  The  input  data  for  program  execution  resides  in  an 
informal  data  file  constructed  by  the  user/analyst.  There  are  no  formal  data  base 
requirements  established  for  input  or  output. 

2.3  MAINTENANCE  PROCEDURES:  The  size  of  the  program  does  not 
dictate  extensive  life  cycle  management  procedures. 

2.3.1  PROGRAMMING  CONVENTIONS:  The  conventions  employed 
throughout  are  applications  of  the  SIMSCRIPT  II. 5  programming  language  with  the 
structured  programming  techniques.  Additionally,  the  following  items  are  of  note: 

o  Indentation  of  code:  with  exception  to  the  routine  name  (first  line)  and 
the  end  routine  (last  line)  statement,  the  programmer  should  indent  to 
highlight  the  program  structure. 


o  Comments  are  preceeded  by  the  '  '  (double  apostrophe)  characters  and 
any  characters  following  this  notation  in  a  record  are  ignored  by  the 
compiler. 

o  The  "define  to  mean"  statements  in  the  Preamble  introduce  words  that 
can  be  employed  in  the  code. 

o  The  programmer's  initials  and  the  dates  of  any  changes  to  the  code  are 
commented  and  preceeded  by  the  percent  symbol  (%)  to  facilitate 
cross-reierencing  done  by  the  SDDL  processor. 

2.3.2  VERIFICATION  PROCEDURES:  Program  verification  is  achieved 
through  a  review  of  the  run  output  (PRINT$).  The  numerous  debug,  print,  and  list 
statements  facilitate  tracking  the  sequence  of  program  execution  and  the 
verification  of  execution.  Verification  is  completed  through  the  hand  calculations 
of  the  input  data  through  the  use  of  the  coded  expressions  and  a  comparison  with 
the  program  output. 

2.3.3  ERROR  CORRECTION  PROCEDURES:  Program  debugging  is  achieved 
through  the  following  techniques: 

o  Debug  statements  -  Source  code  level  debugging  is  best  accomplished 
through  the  use  of  coded  debug  statements  at  the  approximate  point  of 
a  suspected  error.  Data  can  be  evaluated  in  this  manner  as  well. 

o  TRACE  -  The  SIMSCRIPT  II. 5  library  contains  a  tracing  routine  that 
traces  back  all  subroutine  calls  from  the  error  location  and  prints  a 
dump,  in  octal,  of  the  recursive  storage  for  each  routine.  A  verification 
of  variable  values  can  quickly  be  accomplished  using  the  trace  informa¬ 
tion  along  with  the  compiler  listing.  Refer  to  reference  items. 

o  SNAP.R  -  The  SIMSCRIPT  II.5  library  contains  a  snapshot  routine.  The 
programmer  may  develop  a  substitute  routine,  but  the  routine  provides 
lists  of  all  the  preamble  declared  entities,  events,  processess,  etc.  An 
examination  of  these  variable  values  aid  in  the  verification  of  the 
program  and  location  of  errors. 

o  Post  Mortum  Dumps  -  The  programmer  may  introduce  the  (3PMD  (Exec 
8)  command  in  the  r unstream  just  after  the  data  commands,  and,  in  so 
doing  received  a  printed  listing  of  the  contents  of  the  program  and  data 
that  were  in  main  core  at  the  time  of  error.  The  listing  is  in  octal  and 
must  be  manually  interpreted.  Refer  to  Appendix  A,  item  U. 

o  Data  Errors  -  The  free  format  feature  of  the  input  data  necessitates 
that  some  structure  be  employed  to  aid  in  the  visual  inspection  of 
data.  User/analyst  discipline  in  maintaining  a  format  or  structure  is 
necessary.  Otherwise  trial  and  error  techniques  must  be  employed. 

2.3.4  SPECIAL  MAINTENANCE  PROCEDURES:  There  are  no  established 
special  procedures,  save  those  outlined  in  the  above  paragraphs. 
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s.ss.sr t, 

332 

A 

UN. Sin  .LIST, 

3*3 

A 

S  .UN. SUit  .LIST, 

3  39 

6 

P  .  rw.lll;  I T  .  SET  , 

33S 

4 

S.Fn.UNIl.SET, 

336 

A 

P.AO.Hlt.TGT • l I S  T , 

3  37 

A 

S  .AO.nrT.  TGT .clST, 

3  33 

A 

P.AR.DET.TGT.LlSl, 

3  39 

A 

s.cnor  t.tgt.list, 

3«u 

A 

P. UNIT. SET, 

39  1 

A 

s. unit. sir, 

192 

A 

N.UN.ECUIP.LIjT, 

393 

A 

N • UN ,S Up, LIST , 

199 

A 

N.'JN.PATH, 

39  S 

A 

N .UN.SEGKlNT .ulST , 

396 

A 

N.  UN. LOS.  LIST, 

397 

A 

N.U-i. SENSOR. LIST  , 

3  9  H 

A 

K.  SS.SU  , 

399 

A 

*•  .UK. sun. list. 

3  SO 

A 

H.rti. UNIT.  SET, 

3r  1 

A 

M.»0.01T. TGT.uIST, 

3S2 

A 

K.AH.Orr  •  T  6  T  ,i.TST, 

3  F  3 

A 

K. UNIT. SET 

359 

3Sh 

E  VC«Y 

unit ,f i.vironmlnt  ha 

3  Ft. 

A 

UN.LNVI9.FPAr 1 

3F7 

• **I 7HAY79  LGLK 

iglk 


'  **uf  unit  in  en V IPONMEN T 


III  ••*•••***•***  seel  JO*  3  ******* TrMPornfcr  entities  ******** 

3  HI 

il  l  TEMPORARY  L N T  I  T 1 r  S 
3fc2 


3fr3  IVlh'Y  WATTLE  HAS 

3* 41  *  HTL.UKL.OF.nAV, 


1 


j 


1 

i 

! 


i 


i 

.3 
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LIM  CAC1  S  ]  I:  SCRIPT  11.*  llCfi  Stalls 

5 f  s  /»  i  u.iruKMr. .type , 

■u  t*  '■  Mi.riru  , 

••  t  U  .CL  .UMTS. 

*h(  ‘  PlL. RED.  Ill,  ITS, 

l*-’'  f  1'IL.kH'lll 

371;  ANp  !  ElCM.S  TO 
3  71  *  1  ATILT  .SIT 

3  72  MAS 

373  A  P.^All  TLT  .ST  T  , 

37A  A  S.WATUl  .  ST  T  , 

37b  A  f.nATUr  .SIT, 

,<7(.  a  r.PTt .rourr .bi;t , 

377  A  |. . T  TL  .FOACT  .SET  , 

37h  a  n.ptl .roKcr . sc 1 

37V 

3tli  EVERY  FfUCE  HA  b 

3(  1  7  01  C 1  $1  C>N  .1*01 " |  , 

A  rK.CRIT.NO, 

A  rfJ.MSSION, 

37  **  A  FI,  .SiUT 

37b  MAT  Thll 
37t  t  FA. lit, IT.  SET 

3  f 7  HAS 

37E  A  F  .  F  A  ,  UN  I  T  .  AE  T  , 

3 TV  A  C. FT .UNIT. SET , 

390  A  N.  FT.  UMT,  SET, 

391  a  p.pTu.roFcr .sci 

J«7 


'393 

r  VFHY 

M  At.  ,11*  T  T  HAS 

5  99 

n 

“u.cr;  t  .no  , 

3  Vb 

A 

*'U.HEI*  F  .  1  N 0  , 

3  9fc 

A 

“U. CUO.  09.), 

397 

a 

MU.TF.MCH, 

396 

ft 

fU.orFSKT.X, 

3  "9 

A 

oil. OFF  SC  1  .  V  . 

9  00 

A 

Pu.10 

MCI 

ANP  o; 

•  NS 

if  2 

A 

MU. IF. LIST 

903 

and  c? 

-LONGS  TO 

9  09 

A 

MU.TF.L I >r 

90S 

9  PS 

HAS 

l 

F  .  “U  •  T  r  .LIST  , 

9  07 

A 

L  .MJ.TF  .LIST  , 

9  06 

A 

N  .  9  U . T  F .LIST , 

9  09 

A 

S.'J.TT  .LIST  , 

9  10 

A 

9.  MU.TF.L 1ST 

9  1  1 

9  12 

C  VC3Y 

POINT  HAS 

9  13 

A 

F.7, 

9  19 

A 

P  .  V 

9  lb 

ANO  BELONGS  TO 

9  16 

A  f, 

i  UN. PATH 

PILL  AST  b  •  3 
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1 1 m  c ac x  sr'scRin  n.s  iioo  s«.rics  uritAsr  6.3 


<•17  h  » s 

4  18  A  ".US. PATH, 

<119  A  WS.PAtH. 

H?0  A  *1.  IIS.  PATH 
<•21 

422  ;vcry  segment  mas 

423  a  slg. length, 

*,24  A  St 0  .UN  I  I  • 

4?S  A  StC.TYPC 

4?b  ANO  ° CLONUS  TO 

42 r  A  US.SLGPChI.LIjT 

426  HAS 

42V  A  P.llS.SEuHCST  .LIST  , 

430  A  S.UN.SE GHENT. LIST, 

4  31  A  •< »  L’N  •  SE  GME  NT  .LIST 
4  12 

413  E VERW  TK.TB.LlNK  Hi. 

414  A  TC'.IK.KAP, 

415  A  To. TM. CLASS, 

4  3o  A  TO.  TM, 

437  A  Tu.TM.riKCO 

433  liELONGS  TO 

42V  »  TH.TM.LISf 

440  HAS 

441  A  P.TU.TM.LIST, 

442  A  S.TU.TK.LIST, 

443  A  S. Tu. TP. LIST 

444 

<•45  EVCHY  Tu. NIC. LINK  HoS 

4  4i>  A  TU.NTE.IO 

447  BELONGS  TO 
4  4ti  A  TU.NTC.SET 

44V  HAS 

4 SO  A  P.TU.vTE .SC  T  , 

4  51  A  S.TU.NT2.SCT  , 

4  5  2  A  x.TU.STt.Sr  T 

453 

454  EVERY  TU.TE.LINK 

45b  A  TU.TE . 10 , 

45o  A  TH. CRITICAL. CjUIP.INDXC, 

457  A  Tii.TC.OUANT 

45H  UCLOt  uS  TO 

459  A  TU.TE. LIST 

4  611  HAS 

461  «  P. Tu.TE. LIST, 

462  A  S. Tu.TE. LIST, 

463  A  “.TU.TE. LIST 
4  64 

465  EVERY  US. LINK  HAS 

46b  A.  US.SENSGii.TYP_  , 

467  A  US. MODEL, 

468  A  U3.IJNT  T  , 


••1=RAP,0  =  N0NBA«> 

•  'HE  ,  I  CM,  PGM,  ILL  U*<  ,  SHCK  E 
••INlJf.X  TO  TYPE  MUNITION 
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ii:o  stPirs  uriLAir  f..j 


LJf-L  C  AC  l  SJhSCKTPT  ii.' 


m-v 

4  7|) 
4  71 
4  7  2 
4  73 
4  74 
4  75 
4  ?(> 
4  77 
4  7b 
4  79 
4  Pi! 
4  F  I 
4F2 
4f  3 

4  Hi 
4*5 
4  H. 
4  c  7 
4  Pb 
4li*y 
4  9  U 

4- 5! 
4  0* 

4  03 
4«4 
445 

4«b 

457 

49b 

4*.'9 

SCO 

SCI 

see 

sr.3 
S r  4 

scs 
set, 
SC7 
S'1 8 

5- V 
SIJ 

5  1  1 
S  1 2 
S  ]  3 

514 

515 
Slo 
S  1  7 
5  13 
5  19 
520 


a  us. rue, 

A  US. Ill, 

A  US. MATHS 
9110405  T(, 

a  uo.sci.soii.L isr 

HAS 

A  P.l'N.brN SOH. LIST, 

A  S.UK.SCKSGn.LIST, 

a  **.uh'. sr* sop. list 

CVCHV  VISIUI.C.UUTT  HAS 
a  VU.P0INTCI1 . 

1  VU. STATUS 
AM)  PLLOK'OS  fl) 

A  U.. LOS. LIST 

HAS 

A  e.l'K.LOS.SCT  , 

A  S  •  I'!.  .  LOS  •  SC  T  , 

A  ".1)1.  .LOS.  ST'  T 

CVOK*  UF .LINK  HAS 

«  ur.Ki, 

a  11  r.  ,c«i  tical  .Ewui  =  . in’jic, 
a  1 1  r. ,  c  u  a  sr 
HELOIGS  TU 

A  UK.CtUIP.LTST 

PWH3 

»  ur.KtAPOU.SCT 

HAS 

A  P.UK.rC'UIP.LTjT, 

A  S.IIN.COUIP.LTjT, 

A  *,.UH.rtUl".LIiT, 

A  F.Ut.Wf,  APOH.Sv.T  , 

A  L.IIE.UEAPdN.SuT, 

A  K  .  UC  .WCAP-)H.clT 

E.TKV  WEAPON  has 
A  WPN .10, 

A  WON. STATUS, 

A  HC  .WPN  .  TYi’C  , 

A  WFH.OUAI.TITV, 

AM1  SO  Ft  WPU.BOjUUS.PtHAJUIKr- 
•  sc  p r l 0 n j s  to 

A  I’E.  WEAPON.  SC  T 

HAS 

A  P.Ut.UEAPOK.SwT, 

a  s.ur. .yr.APu» --.sli, 

!  **  .  UC  .  W C  APOiv  .  T 

••  SECTION  4  **-»»***PPoCC  Sirs  ******** 
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CAfI  SIMSCRIPT  I! 


1103  SCRIES  nttAST  6 »  J 


••***•*•***«*  SCC  T  I  J'«  S  ******* OrflNTl  t  ON ;»  ** 
•*  A.  PtAL  VARIABLE., 

define 

Pll.TIMr.  .OF. PAY, 

TC.TIs.INTCPCEPT, 

tc.tp. slope, 

t'N*.  TIMC.LASI.HPvC, 

Tk.UlTC.FAC 
AS  RFAL  VAHI ABLCS 

••  !*.  SIONCO  INTEGER  VAPIAIILLS 
PCFI*t 

FLUC.UM  T.C’ITP, 

PEPUC,, 

PAT  A. ERROR  , 

T  k  .  PK  .PT  '■>  , 

'•(j.CFFSE  I  .X, 

•Mj.CFf SE  T  .Y  , 
l'N  .  TYPE  .UNIT  , 

IIN.A  .COORti, 
t'N.Y.  COORD, 
mn.a.Gkiii, 
l'N.Y.GRI% 
t'N. RADIUS, 
ns.pAwrN r , 

ME  , RH. RANGE  i 
V  ML. PH. TOTAL. FPr  , 

ME  «  R H, HO II M' .CPE  , 

TiUito*.!'-: 

t  t  .  h  a  x  •  r  i  •;  E .  p  <•  t  u  * 

Tii.StlST.FIKi.h*  rr, 

Tc  .MAX ,R  AI.CC  , 

T(  .SFAIL.PEA’..D.il'Y, 

Tl  . LF A IL  . PLAN . Pi.DS , 

TS.Sf AIL  .RCPAir, 

TL-  .LFAIL  .REPAIR, 

TP. SUPPRESS. TIP„  , 

T(  .  P  I  Im  .  P  R  C  p  , 

Tt.HAA.PPLP, 

Tf.iiii..rcbA, 

Tb.KAA.FEbi, 

TU.FRF.L, 

TU.  RADII'S, 

Tll.CPIT.KO, 

Tb.POV.RATE , 

Tw.r<*u.or.riPr, 

Tk. ROUND. VCLOCTIY, 

T..MAX.R ANGL , 

Tw. MIN. RANEE, 

Tk  .UASIC .LOaO , 
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UM  C  AC  I  SI  KSCIJ I  •'  T  II 


HUD  Ullir 


dCIlAST  fr.j 


5  7  3  DECISION. POINT, 

5  70  7k.CKII.M0, 

5  75  P.X, 

5  76  r.Y, 

1>7  /  SLR.LL  If.lH, 

5  76  SCfi.miT, 

5  79  St  t>. TYPE, 

ii J>0  TU.CkITICAI  .F'JI'IP.INL'IC, 

5!1  TU.  IF .CHANT , 

ML • CU ANT 

58  3  AS  SIGNED  IM  TE5CR  VmDIAIILCS 
5AM 

5  A  5  ••  C.  ALOHA  VAKIAUI._S 

5b6  DEFINE 

57 /  f  T .NAME, 

5b  5  r  \  ,  i.  A'AL  , 

SF9  F7.N7HC, 

5<5C  FI  .NAME, 

5M  HE. 10, 

55J  IC.IO, 

:>93  PN.NA“E, 

55  9  FT, NAME, 

bib  S  H  .  W  A  M  E  , 

5VP  Tfc, NAME, 

59/  TU. LEVEL, 

5  08  7 C.  NAME, 

559  T!-.T“.  CLASS 

6FC  AS  ALPHA  VARIABLES 
6U 

bC2  ’•  £.  SETS 

5r3  DF  F INF  TJ.ir.LIST  AS  A  LIFO  SrT 

b<N  DEFINE  UN.EC'UIP.LIST  SS  A  LIFO  SET 

b05  DEFINE  SS.STI  AS  A  SET  RANKED  JY  UU.X. COORD 

bFb  0  F  F  I N  T  Tll.Tf.LlST  AS  A  FHO  ST  T 

(*F7  DEFINE  UNIT. SET  AND  UK.SUMLIM  AS  FIFj  SETS 

A  I  T  H  0  M I  H  ,  N  ,  A  7;  J  rt  A  TTRIrJTCS 
bl9  .irHOIIT  f  r  ,|  A  ,FH  Af.71  R  FOUTINLS 

blC 

Ml  •«******!>*♦**  SECTION  b  ***»•*  *  SOD  ST  I  TUTIJNS  *•>*>»**** 
LIE 

MI  *  1  SIJFL  SUBSTITUTIONS 

bl<t  OEFIKl  l  DDF  RE  AM.ILF  TO  HE  AN  LMCI 

LlS  DEFINE  ENOMAIN  10  HCA.|  ENC’ 

Mb  DEFINE  EXITMAIN  10  MEAN  STOP 
H7  DEFINE  L  MIPOUT  I’JE  To  MEAN  t  NO 
618  DEFINE  CXITROUTINE  10  MEAT,  NET  URN’ 

L 19  DEFINE  ENDF 'JMCTION  ID  MEAN  END 

b?u  oeriNE  exitfun’Ction  to  mean  return 
b  2 1  DEFINE  lfuroutim:  TO  mean  lFFT  RO’JUnE 
b?2  DEFINE  ENOLEr  TRUUTInE  TO  MEAN  CND 
b?3  DEFINE  EXI1LEF  T ROUTINE  TO  MEAN  KETUh*. 
bi<*  DEF 1  *’C  ENOEVCM  TO  MEAN  END 
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lift  c»ci  sipsckipt  ii,«  nnr  smusi  releasi  6.3 

bPS  DEFINE  LXITCVEnI  TC  MEAN  Rl'TMKN 
kit  off i ft  enuppoccss  to  mean  end 
6? 7  PiriKt  LXITPRCCCSS  to  MC AN  HETI)h‘ 

6?>i  DEFINE  CLSElr  TO  PF  AN  EL  SC  IF 

h?9  0  L  T I N  t  ENOIF  TO  ME  A  .<  ALWAYS 

63C  DEFINE  ENDLOOP  tC  P  c  A  \  REPEAT 

631  DEFINE  C  X 1  TL  OOP  10  ALAN  LEAVE 

b32  DEFINE  LOUF  TO  MCA*.  RESUME  SUbST  IHITTON 

6  7  3 

634  “CONSTANT  INU3CR  ulFINlTlONS 
bIS  PLFIFC  FALSE  TP  ML*.  0 

636  DEFINE  TRUE  TO  ML  A  I.'  I 

637  DEFINE  tiLUL  TO  AC  A  N  2 

638  DEFINE  RED  TO  MEAN  i 
63V  D  F. c  I  A'  l  HIT  TO  r'EAt,  I 
6«C  DEFINE  MISS  TO  A?  AN  3 
661  DEFINE  MANEUVER  TO  .LEAN  I 
660  DEFINE  ARTILLERY  TO  '-'LAN  i 
663  DEFINE  SUPPORT  TO  "lLI  3 
666  DEFINE  YES  TO  YEAN  l 

66S  DEFINE  CFUVN  TO  HEkR  M 

646 

647  ••**«*«***»**  SETTIJN  7  ***»>Y*COllPUTATIPN  DIRECTIVES 
663 

66V  E  NOP" t  AMPLE 
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THIS  PAGE  IS  INTENTIONALLY  LEFT  BLANK 


in.  caci  sinscfttrT  ii. «•  non  sum  pllcasc  b.i 

1  •'ATI.  ••  l>  /  MAI-(«j  KHAIM 

:■  nopk/lly  Honr  is  iMCiii:« 
i  ui  I'Av.oiiANK  .  y  -  Ion  ian 
••  in  i.sincs? 

5  ChFATE  tVLDV  Slot 

6  LEI  V.CAOI»PlNb:i 

I  CHE  ATE  l  VLHV  CiHOUPI,«G 


b  LET 

CP.NAHL  111:  "APLUVCB 

V  LET 

1*1*  .NAME  12):  ARTILLERY 

10  LCT 

fP. NAM LI  3)5  SUPPOHT 

11  LET 

r>LI-UG  :  TRUE 

12  LCT 

PATA.CRPOH  :  FALSE 

13 

C/LL  CA  T.TU.tHIMIT 

1  4 

HINT  1  LINE  V.Tlt 

USlO.ObANK. V 

thus 

« ltd 

•’L  AliK 

»l  TEH  CAT.TJ.IMMIT 

:  ***** 

1*. 

C/LL  CO. TE  .  INPoT 

17 

HINT  1  LIN'  V 1 T  M 

usro.n.ANK.v 

thus 

Ann 

r.bAMK 

M  UK  LO.TL.INPOT 

:  ***** 

19 

CALL  UNIT. INPUT 

20 

HINT  1  LINE  Wa  TH 

USCO.HliAuK.V 

THUS 

t(k 

nr.ANK 

*TT[R  U;. IT  .  I  f.PijI  : 

***** 

22 

C/LL  P.t.M. INPUT 

23 

H  INT  1  LINT.  Vi  III 

USLO.I'bANK.V 

Thus 

**li 

n  t.  A  i\  K 

A  f  T l. P  0.1  .11 .  INPUT  :  a**** 

21. 

C/LL  I". INPUT 

20 

Pr|PT  1  LINE  WITH 

USED  .  Du  AL'ft  »  V 

thus 

AKA 

It  A  MM 

*  F  Tf  R  TO. INPUT  :  ***** 

21 

CALL  UTPY. INPUT 

2'> 

point  i  line  Vi ru 

USED • Ob  ANK . V 

Thus 

in 

Pt.ANK 

AFTER  btRY. INPUT  : 

***** 

71 

C/LL  /.'INS.  INPUT 

31 

PRINT  1  LINE  WiTM 

USCU.tU.At.K.V 

thus 

*  s  « 

ObANK 

after  muds. input  = 

***** 

Jft 

CALL  SUHM.INPlIf 

75 

PRINT  1  LINE  Ul TH 

U5C0.0L.AUK.  V 

THUS 

«  »u 

nb  A  »K 

AFTLP  SUftM.iNPul  = 

***** 

77 

CALL  HI. LA. INPUT 

3ft 

PRINT  1  LINt  WITH 

USCP.DcAK>*V 

THUS 

ASK 

ObANK 

AFTER  HI'  .LA. INPUT  : 

:  ***** 

*|0  LIST 

L.iJNIT  ,N.  T  TPC  ..OUIPMCNT 

<tl 

CALC  MARP..RTY 

*•2  CNOh 

•‘IN 

Figure  III.2.20 


LI'-E  CACI  Mi$CRt«'t  ti.r 


1 1 op  series  nLLAsr  t.j 


1  ROllTTM  CAT. TU. INPUT  *•  •  C  A 1 11  UaTNP  JT 
t  NORMALLY  HOOE  13  INIEuFR 

J  Ottiwc  CATEGORY  ,  TYPE. UNIT,  r-RDUPI'U,,  Tu.tTE.LINK,  T'l.TE.lTNK 
M  A S  IMEUER  VAOIA.jI.lS 

*»  ik  ortuij  i  true,  prim  i  line  thus 
a  :  L  A  T  •  T I ! .  I N-'  U  T  :  :  : 

7  ENDIF 

8  READ  N. CATEGORY 

V  CREATE'  EVERY  CAtE.fir.,Y 

10  LOOP  F0«  EACH  CAUCoRY  00  THIS 
U  READ 

12  CT.NARf (CATEGORY  I  , 

13  CT.HTN.FE'J  At  CATEGORY  1  , 

1M  CT.ORtUPTCATCGOTY  I 

15  LET  (*1. nit,. FEiUJCAT. jOOYI  =  C T .H IN .FT 0 A < f A TCUuR Y 1  *  10.  t  16. 

16  FILL  CATEGORY  IN  6F  .  CA  T  .  SE  Tt  C  T  .GROUP  T C  A  T  T  jORY  1) 

17  1  ’PRIM  1  LINE  THUS 

It  =  :  In  FIRST  LrjP  :  r  ; 

17  ENPLOCF 
76  OEAU  N. TYPE. UNIT 

n  create  every  ty-»f.u,it 

22  LOOP  FOR  each  TYPE. UNIT  DO  THIS 

23  REAL) 

2M  TYPE. DR  IT, 

?S  TU.LFVEL ( TYPC.U  VlT  1  , 

.*6  TU.CATTTYOE.UMn, 

2  7  TU.PTL.*CHTH|TY?E.T'MT1, 

73  TU.Hrv.RATEtTYPL.UPiTI, 

29  TU.PRIN.TL  (TYPE.UM  I  I  , 

70  TU.RACIUSlTYPE.UMT), 

11  TU.SIUf  (TYPE  .U’  IT  1  , 

?2  TU. SUP. PRIOR ITY lTYP_ . JRI T1  , 

13  TU. OPP. PRIOR ITYTTYPl.  UNIT) 

IT  *  'PRINT  1  LINE  THUS 

IS  »*=  =  r  I-,  SECOND  LOOP  :  I  r 

36  File  TYPr.JNIT  IN  f  t  .  TU  .  SS  T  I  Tu  .C  U  T  T  YPS  . Ill,  I  T  11 

37  LET  ritO  ;  rj 

33  LOOP  UNTIL  FLAG  R  1 

39  CO  THIS 

MC  CREATE  A  TU.TE.LINK 
U  I  0  r  t  L) 

“2  Tu.TD  .IOTTU.  TE  ,Ll\n 

MJ  TF  TU.TC.il  TT'J.TF.liNiU  :  979 

AM  DESTROY  THE  TU.TE.LiN8 

MS  LET  r  l  A  G  ;  l 

Mo  ELSE 

M7  READ  Til. TE. QUA  NT  (  Tl'.  Tt  .LINK  (  , 

M  6  TO. CRITICAL. lCj’1, INI)  ICTTO.TL. LINK) 

M 9  IF  TU. CRITICAL. EQUIP. INDICT TU.TE  .LtN*»=YES 

SO  ADD  T U  .  T E.  , C U  A N T  T  T U  .  I  E  . L  I  N K  1  TU  T U . D R  I  T  . NO  T  T  YPl  .  UNI  T  » 

‘1  ENDIF 

!2  • ’PRINT  1  LINE  THUI 


Figure  111.2.21 


110 


like  caci  sihsuipj  n.r  no:;  st>'ii:s  scllast  g.j 

•1  =  =  in  THiuo  lpjp  5-s 

Et  FILL  TU.TE.LINK  IN  I U  «  t  E  .  L I  S  T  I  T  VPE  .  UT'I  T  I 

CS  EKOI* 

It  ENOL  f OF 
‘•7  let  flag  s  a 
Mi  LOOP  UNTIL  TLAG  5  I 
Vi  PO  THIS 

frC  CSC  A  TC  A  TU.KTC.tIM 
M  NEAP  ’ 

b?  TU»MU*10<1U.NU.L1.4«> 

13  IF  TU.NTE.IDIIL'.NTt.LINKI  5  V99 
E<(  PlSTPCV  THE  TU.VTE.LINK 
<>S  LET  FLAG  :  I 
F6  ELSE 

M  FILE  lU.NTt  .LINK  IN  TU.MTE  .  SC  T  1 1  VPE  .IHITI 
( d  ENDIF 
F9  CNDLOOP 
73  E.NPLPOP 

71  P:UNT  I  LIKE  WITH  TYPE. UNIT  THUS  ••  »23JA*Jrtl  SEC 
5  5 1.  A  S  T  T  Yf'C  UNIT  »**#•»*  5  5  5 
7 i  ENTSCUT  1NE 


Figure  111.2.21  (cont) 
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lim:  caci  iinic:?ii‘T  u.*.  ncn  series  RiLtisr  . 3 

1  ROUTT, \n  1 0  »  TF  ,  INPUT  •»  tlNPUl 

v'  NJ9HM.lt  HODL'  IS  I'  fCQCR 
i  nj.ri\r  u.;n'ii.,ec-.»*H£  *s  alpha  varimilcs 
**  ir  Ur i-UMTHUF ,  PRIM  l  l!M;  Thus 
a  =  LO.TC.  INPUT  =  :  : 
u  IflOIF 

1  READ  K.TYPC .CWUIRHFuT 

3  CKEATl  EVERY  TYPf:  .r»itltPHFtiT 

9  FOP  FACH  ttPr.COUI*  IFUT  PFAu  lE.UANE* 

IU  tC.P?«.lSn!C»TC.PR''J':CTFn.AKlA 

11  READ  >.  ...LUC  .  TYPE  .i  CP  *  N  .RE!) ,  T  YPl  .t  CP 

U’  LCT  N  .CfcUiP'U'NT  ;  A  .  ,1L  lit  .  T  YPC  .  r  w  P  ♦  »•  .PL  P  .  T  YPw  .  E  OP 

1J  CREAM  LVEKY  EOUIPMNT 

m 

15  LOOP  FO*  EACH  CJUIPlCNT  PO  THIS 
lb  READ 

1 7  ro.srL..»o, 
is  m.NtPt, 

19  C  A  •  T  r •RIKIESUlRMfNT I t 
?.l  EU.Pf  A.  SPLtn  , 

?1  Eit.PrRS.>NNLL  .LOAO 

??  ,rCUIF.PR  .PTP  "  *  ?-?<-?«  ,IE 

TJ  IF  EC  .TL  .MR  (E(jJlP»  £*J  M  >  0 

?H  FILE  t  QU1PHE  I.'  t  IN  lw.SETIEO.TL  .PTRlEOOIPPLNtM 
?!>  ELSE 

Cb  CALL  ERROR. STOP 
r  i  ENCir 

;j  fcao  cev.apn.no 

■  ?9  CNPuPCF 

?o  print  j  Li'.r  «ith  Fj.scl.no  thus  "  yjajanm  sm 

=  =  (.AST  r„cjp  SPOUEdCE  „UHSFR  *»♦  =  :  r 
32  ENOS  Put  ISt' 


Figure  III. 2, 22 


LUC  CAC1  SImSCRUT  II. T  uno  SERIES  RttLASf  b.S 


l  ROUTINE  UNIT. INPUT  ••  CJMUMI'U! 

J  NORMALLY  MOOT  IS  INTEGER 

i  ncFt*r  siuc,  groupt  *•*.,  and  dummy  as  integer  variaoles 
h  tr  or  uii  ithue ,  i»M>  i  i  line  thus 

:  i  jNIt.nrut  z  z  z 
s  CNOir 
I  RCAO  N.UNtt 

A  BESEOvr  UNIT  .NOS  I  *  I  AS  N.U'UT 
■)  CREATE  each  unit 

10  LOOP  TOR  CACH  UNIT  CALLED  I  DO  This 
It  KE  AO  UNIT.NOSm 

12  ENOLPOP 

13  LET  I  s  0 

IN  LOOP  FOR  I  :  1  TO  N.iJNIT  DO  THIS 
la  LET  UNIT  s  I 

10  READ  UNIT. SCO. .,0, 

IT  U  l<  IT. 10. To. 

10  UN.TTPf.LMTm, 

IN  UN.X.COGRjII), 

~0  UN .V.COOPu  (  l  I  , 

Tl  UN. PARE -.Till, 

?2  UN. COLOR  III. 

2J  UN.RAUIUSII)  **00  NOT  USE  ns 

rw  ir  un.colohu  :  clue 

IS  ADD  1  TO  ULUC.UMT.CNTR 

iNDir 

27  IF  UNIT. Su). NO  Nt  UNIT  PRINT  1  L  TNE  WITH  UNIT  .  UNIT. SCO. NO  T  HUE 

s  :  IlFROR  UNIT  ♦*•>*  I  IN  SEC  I  HA',  SCOOFi.CE  NO  *•**  i  :  s 
r»  Lf  T  DATA. ERROR  :  TRIJt 

70  (NCIF 

M  IF  UMT.IP.NO  „E  UNIT.NOSUl 

72  PRINT  1  LINE  WITH  I,  UNIT.NPaU),  U*  IT. ID. NO  THUS 

z  z  z  ERROR  UMT.NPSI****)  IS  ***<*,  SHOULD  i»E  ***♦  is; 

3<*  LET  DATA. ERROR;  TRUE 

75  EM  IF 

7t>  IF  UN. PARENT!!)  >  0, 

77  FOR  Jil  TO  N.P..IT,  RITU  UNI T .NO S I J ) SUN .RARE N H l I  FIN'D  THE  FIRST  C  ASF 

7E  IF  NONE,  SUP  l  LINE  PRINT  I  LINE  WITH  J,  UMT.NOStl),  UN. PARENT  1 1  )  THUS 

s  =  S  (***»)  UNIT  *** » • S  PAHrNT  **•*,  NOT  FUUiO  IN  ARRAY  SIS 
WO  LET  DATA .ERROR  :  TRUE 

W1  ELSE  LET  SEC.Nj.OF .PARtNTsj 

W.  ITT  UN. PARENT ( I  I  s  SLC .NO .OF .oAPcNT 

WJ  AL.AYS  CISC  AL.AYS 

WW  ADD  1  TO  TU.FPLQIUN.TYPF  .UMTII)) 

WS  AIH»  1  TO  SIDE. T  D . TOTAL IUK. COLOR  II)  ) 

Wt  LET  UN.X.COOPDl !)  :  1 0 .RUN. X. COORD  1 1  1/16 . 

WT  LET  UN.  V.CJONM  I  )  s  10  .  *UN,  V  ,COrR!l  II  )  /  lb  * 

Nb  LI  T  UN. STA TUS I  I  1 s  3 

W9  LET  SIDC  -  UN.CJLORIII 

TO  LET  UN. GROUP  :  T  0  .  C  A  T  I  UN  .  TYPE  .UT'U  1 1 )  > 

TI  Lit  GROUP ING  r  C T .GROUP  I  UN . CROUP  ) 

S?  IF  GROUPINj:NA.,EUVER  CREATE  A  MAN. UNIT  LET  UN  ,PT R  IT)  5H AN .UNI T 


Figure  III,  2. 23 


*c  caci  sisicstn  ii.*  1100  uetcs  rihast  t.i 


!1  4>rA:  MU  « r.  i  kt  .  inu  i  un  . p t*- 1  t  1 1 

'•<4  cmif 

,r.  ir  “.uNii.irMjnmn  prut  i  ti.c  uth  gNit.Ncsm,  sice.  grouping 

:  :  :  UNIT  II  FU'.U  IN'  S10L  *,  GROUP  *,  AN  rn»0R  i  z  : 

*7  CALL  ERROR. STfp  tNOIF 

it  rue  uvit  u  t'.ir.smsur, grouping* 

*.V  IF  UN. PARENT  IT  1  XJ  riLt  UNIT  tN  UN.t  Jl‘ .L  1 S  T  < iF  C  .NU . OF  .P ARCKT  I 

t,C  END  IF 

M  Ut  fill  :  J 

FE  LOOP  UNTIL  FLA.,  Z  1  no  tl'IS 

M  CREATE  a  JO. LINK  CALLEP  EC 

PR  READ  UE.iniLOl 

tb  ir  uc.itMwOi  ’  »'ii  crsi<ov  rue  or.. link  called  re 

At  LET  flag  z  i 

(.7  ELSE 

(.3  reap  'jE.ojANTiroi , 

(9  UE.  CRITICAL.  CCUIP.iNOICTECl 

7j  IF  Ut.CPtTTCAl.E'lJIP.lNUICtCOISYES 

71  APO  l!C  .QUaNT  1EC  1  TO  '1U.CRIT.NOIUH.PTR  I  n  > 

t:  enoit 

7  i  FILE  E  V  T  4  THE  UN.FlUir.il  * T U I 

7*4  ir  goji'pt ngamancjnfi-'  or  groupt**  =  cotavn 

75  LOOP  u'.TTl  -iPN.IOIVI  i  V99  00  THE  FOLLOW  IN6 

7b  CREATE  A  WEAPON.  CALIF J  « 

77  wrAO  WPN.tOUl 

7L  IF  VPN.tOlRl  r  9S9  DESTROY  THE  WEAPON  CALtE"  W 

79  1 1 A  V ELSE 

Fg  Of  AC  UPN.STATIISU  1, 

PI  WPN.UUANTITYIJI 

f<  IF  GROUPING  =  COT  A VN 

P3  CCAI!  P\.  .  .pN  .  TYPE  (  U  I 

*•  *4  EnJU 

EG  FUC  V  I<  THC  UC.LEAPON.jET  ICOt 

Eb  C NOLOOP 

P 7  ENOIF  EMUF 

HS  ENL'LCOP 

HS  ENOLOOP 

*>E  IF  DATA. ERROR  i  TRUE  PRINT  l  LINE  THUS 

z  :  ;  EL  nCRG  IN  UNIT  DATA  =  Z  i 
9C  CAL'  ERROR. STOP 

*•'3  E'.IF 

9R  RELEASE  IJE. TOTAL 

OS  PR  I’.T  1  LINE  ViTH  BLUE  .UNI  T  .CNTR  THUS 

UUL  UNIT  COUNT  ***  zzz 

97  PRINT  l  LINE  WITH  UNIT. SEC. NO  THUS  ••  WttJAKbl  SEC 
=  LAST  UNIT  SEC  HENCE  'UMBER  **«♦  zzz 
9<i  C NU*-' OUT  I NE 


Figure  III.  2. 2  3  (cont) 
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un  caci  simsckipt  ti.s  hot  series  release  t..j 


1  routine  p.c.o. input  ••  «ptr 

2  ••THIS  ROUTINE  I N!  T  j.  Aul  ?C S  T  HL  POSTURE,  ENVIRONMENT,  AND  MISSION  OATA 
J  ••  THIS  VERSION  HA£  t).IT,CmitONMi_L’T  F  PACTIONS  R«MOVEJ  HR&P 

4  NORM ALL V  MO Of  IS  I N IEwCR 

6  IT  PLt-UGlTRUE  •  P»T.T  1  LINl  THUS 
r  ;  :  P.C.M. INPUT  =  =  = 

7  CNUIT 

6  READ  N. POSTURE 
9  CREATE  EVERY  POSTURE 
1J  FOR  EACH  POSTURE 
U  REAU  PT.NAMETPOSTUBl) 

12  ••LIST  ATTRIBUTES  OF  EACH  POSTURE 

13  READ  N, ENVIRONMENT 

I*i  CREATE  tVERY  UNVIRO.MCNT 

15  FOR  FACH  ESVIKO  lwEf.'l 

16  REAU  FN.NAKF  IFIWIRO  1MLNT  ) 

1  I  •  •  L  I  S  T  ATTRIBUTES  OF  EACH  ENVIRONMENT 
lh  READ  MISSION 

19  CRFATC  tVCRY  MISSION 

2  J  ••EACH  UNIT  HAS  A  PERCCN  f  AuL  IN  TACH  CNV  I HONHENT 

21  TOR  EACH  'USSIOY 

22  READ  MN.NAMC (MISSION) 

2  3  ••LIST  ATTRIBUTES  OF  EACH  MISSION 
24 

2:i  •  •  t nr  following  linvs  of  ciuC  are  commented  out  because 

?o  *  •  A  ROUTINE  CALlCU  jMT.EMVIR  is  USED  to  compute  the  percent 
27  ••or  A  UNIT  in  EACH  OF  THC  ENVIRONMENTS  AS  rtEglilREP  BY  THE 

2  T  "PROGRAM.  REFER  TO  TH\T  ROUTINE. 

-  :.9  •msjANflo  tpop 

70 

71 

72  ••LOOP  1  OR  EACH  UNIT  00  THIS 

3  3  "LIST  UNIT 

34  "LOOP  FOR  EACH  ENVIRONMENT  Do  THIS 

3B  "READ  UEF  IN  PERCENT 

76  "LET  UN  .CNVIR.FR  AC  r  (UNIT  .  EN  V  IROl.Mf  M  T  |  r  UEF/2  SIGJUN79  *JLR 
37  "LIST  EH.NAMEIENVIROnMENTI  ,  Ui.  .E  N  V IR  .  FP  AC  T  STORED  AS  tn,503 

35  •  ’UN. ENVIR.FR  ACT  I  UN'S  T  »  ENVIRONMENT  » 

39  "ENOLOOP 

43  "ENnLOOP 
61 

62 

“3  "EACH  CATEGORY  HAS  tl  EXPECTEU  PERCENTAGE  IN  EACH  ENVIRONMENT 

44  LOOP  COR  EACH  C  i V I P JNMEN T  00  THIS 

4  S  "LIST  UN. NAME  I UN V I. TINMEN T » 

46  LOOP  FOR  EACH  CATEGORY  00  THIS 

47  PEA!)  EC.FRACTTEIVIRJNHENT,  CATEGORYI  "IN  PERCENT 
4d  "LIST  CT.NA“C  ICATEjORY »  , 

49  •  *EC. TRACT  IENVIRONMi_N  I  ,  CATEGORY  I 

50  EN0LO0P 
c.l  ENOLOOP 

S2  "EACH  CATEGORY  IN  EACH  MISSION  HAS  A  PERCENTAGE  IN  EACH  POSTURE 


Figure  III.  2. 24 
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Lift  CACI  M'iSCRlPT  II. ‘  UOj  uric*  Ul.C»sr  f. . 5 

5  I  "WHICH  VLHKS  DC  PC  .,0  [NG  ON  •»  «  1 1  HAS  jPl  N  WARNED 

5w  LOOP  KOK  CACH  CaICOjNC  m  ThIS 
f3  "UrT  C  I. NAME  IC*Tr jOHY  I 
5o  LOOP  FOU  CACH  MISSION  00  THIS 
57  "LIST  MN. NAME (MISSION) 

‘■j  LOOP  FOW  CACH  PJSTUrtC  TO  THIS 

50  READ  Cf‘M  •  wARNCO  .  F  ft  AC  T  (CATEGORY  «  POST  (JHF  •  HliSiON),  "IN  PERCENT 
fcO  CPM. UNWARNED. F'UCTtCUCSORY,  P05TU0C.  MI  $  j  t  ON  )  ’*11.  PERCENT 
(>1  "LIST  PT.NAMCIPOSTj»CI  , 

A2  "CPU. WARNED  .FPACT  UATEGORY,  POSTURI",  MISSION), 

M  "CPP. UNWARNED. FKACHC4TEG0«Y,  POSTURE,  MISSION) 
f.*t  CNDLOOI1 
as  CNOLOOP 
f-b  CNTLOOP 
A  7  ENDRPUT I NE 


Figure  111.24  (cont) 
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LIU.  CAC  1  SI>:«CSII‘I  11. ‘  lino  SiHlES  RILuASf.  fc  .  J 


ROUT  T  NC  TK. INPUT  ••  A  T  u  Y  l  P  •. I T 

NORMALLY  Pont  1>  INTEGER 
PRINT  i  L1SC  THUS 
TO, 1‘UuT  z  z  z 
LET  ‘.T.i.S.FH  A  S 
cat  L  CVLKY  Tli.  N.  PM 
HLAO  N.TYPE.1TKY 
CREATE  CVLRY  TYPC.P|PY 
LOOP  TOR  EACH  TYPC.^TRY  DO  THIS 
REAP  TP.SEJ.NP, 

T8 .NAME  1  TYPE .bTRY I  , 

TH .HOR.Et .ID (TYPE .PIPY ) , 

TO  .N.HOo  (  TYPE  .p.TOY  1  , 

T *•  .Ml  i  .HO.  (  TYPE  .il  TS'Y  >  . 

TP  .mak.FTkE  .RATE  (1  Yl-'f.  .f  TOY  ) , 

Til  .SUST.f.RC.RATC  I  TYPE  .d  TKY|  , 

TO . MAX.Rt (EE (TYPE ,1'TKV 1 , 

VI  .HAX.RV.  RANGE  I TYpr.PTRYI, 

IF-  .SF  AIL  .NCAN.RN3SI  T  YPF  .MPY  >  , 
la  .LI' AIL  .HE  A.N.MvuilTYT-r  ,TTIJY  >  , 

T  i  .SPATE  .REPAIR  I  TYFL  .l-TKYl  , 

T i.LFATL  . REPAIR (TYPE.fc TRY  I , 
in  .SUPPRESS.! I  HE ( TYfE.FTRY)  , 

1R  .KI,(.PPUP(TVPC  .uTKYI  , 

Ti  .MAA.PPcPITYPC.JTWYI  , 

TO  .Hi  (.EFUA (TYPE . jTR Y  I  , 

T  b  .MAX.FEjm  I  TYPE.bTRYl  , 

T'i  .  MARCH.  uROEB  I  TYPE.  LIT  »Y  »  , 

TP . OCCUPY! TYPC.CThYl 

LET  Tb. PAX. RAKot (TYPE. ulKYirlH. PAX. PAN5C(TYPE.(>TRY>  *  10/16. 

LET  Tfc. MAX, P»P. RANGE  (T  Y  PL  .L  Tn  Y  t  =  I  *  .  *‘AX.  RAP.  RANGE  (  TYPE  .P.TRY)  *  10/lfe. 
LET  TE  .’•AX.FEPXITYPE  .PTRY  CTo.RtX.FCdAlT  YPE  .bTRY)  *  1^/16. 

LET  If  .Hl‘i.F£FA(TYPc.C'inY  HTu.vl  ,.FroA(1YPl  .HTbVI  *  10/16. 

LET  FLA*.  =  T 

LOOP  UNTIL  F L  T u  =  1  UO  THIS 
CREATE  A  Tp.Tm,LINY 
HE  XD  T(  .T.1.«AP(T!J.T«.LII»HI, 

TU.Trt  .CLASS!  Tii.  TP  .LINY  >  , 

Tf'.T.KTS.TP.LlNK) 

IF  Trt.TP.RAPf  Tb.TM.LIKMSP 
PESTRCY  THIS  Tb.TY.Ll NK 
l. r  T  FLAFzl 

ELSE  FIU  T5.TR. LINY  IN  Tn‘.  TH  .  L I  S  T  1 T  Y  PE  .  bTH  Y  I 
ENLIF 
E*  SLOOP 

LOOP  FOR  EACH  1H.N.FP  DO  THIS 

HEAD  TR.*U.THRESHOLC(TYPE.r.TRY,  T  B  •  N  •  F  M  | 

CI.C'LoOP 
E  NDLnC  P 

PRINT  1  LINE  KITH  To. SCO. NO  ThIIS  ••  \2PJANei  SEC 
LAST  TYFE  S .< T  Y  SEO  No  ***  =  =  = 

E  NOROUT  I  SC 


Figure  HI.2.25 
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L  I  *.  L  C  AC  I  SlMSCrfTPT  II.  c.  HD)  SuRIES  RULASE  6.3 

1  ROUTINE  bTRY.IMFlJT  ”  <ETRY*tNRJT 

2  NORMALLY  HOME  IS  J.TLOT.R 
I  PRINT  1  LINE  THUS 

:  R  UNTY. INPUT  :  :  : 

S  READ  N.FA.UN 

t>  skip  n.ta.hn  field., 

7  READ  N.01KY 

A  CREME  EVERY  i,  TRY 

9  Lr  T  F  A  .  P  N -  1 

10  REAP  FA. UN. UNI T  , 

11  DUMMY 

12  LOOP  TOR  EACH  DTRY  00  THIS 

1J  ‘START • 

lu  if  duhmy:?«v 

IS  RE  A  0  DUMMY 

IS  IF  rjUMNv  =  9y? 

17  IF  ,»TK  YCN.ltTRY 

lb  SKIP  1  LINC 

19  PRK.T  2  LINES  .ITM  N . “ T P Y  , UT  ? Y  THUS 

NOT  El.OUr.H  BATTERIES  HAVE  SEEN  LISTED  IN  BATTERY  FILE  - 
****  i» t; R F  rxPECTED,  OUT  Oi.LY  **«.>•.  WlRE  FOUND. 

72  STOP 

23  CNlllF 

24  SO  TO  riNISH 

?S  END  IF 

26  ADD  1  TO  F M  . UN 

27  IF  FA.aN>f  .FA.P*; 

?**  SKIP  I  w!NE 

•79  “RIOT  2  LINES  WITH  N.FA.Pn  ThjS 

TOO  Many  ‘At  MAHONS  HAVE  uCEN  LISTED  IN  PATTERY  FILL  - 
ONLY  ****  WERE  EXPECTED. 

12  STOP 

33  CNDIF 

34  Rt  A  :)  DUMMY 

35  GO  TO  START 

r0  £  ..DIF 

77  LET  BY  •  2  N  (  R  T  R  Y  I  - F A  . H  T 

3f>  LET  LV.TYPf  CPTRYMDUMHY 

79  PL  AD  P  Y  ,U  JIT  (..TRY  I  , 

4U  P  Y.PjP.fAF'IBTPYl* 

"1  DUMMY 

4  2  ‘‘LIST  BY. UNIT ( 3T  R  Y I  PEFO’E  • 

43  LOOP  r  OR  I  =  l  TO  N.IJuIT,  ”7/79  PJK  U 

44  KITH  BY. UNIT  IjTRY)  =  UUlT.NOSm, 

4C  FIND  THE  FIRST  CASE 

4E-  IF  NONE,  SKIP  1  LINE 

47  PRINT  1  EI.C  KITH  uTNY,  0  Y .  D,J  I  T  I  oTR  Y  >  THUS 

C.Y.UNITT****)****  NOT  FOURS'  IN  PEADINO  UTRY.INPJT. 

49  “LET  ERROR  :  1 

50  E  til' IF 

51  LET  l Y.UNIT(RTRY)  =  I 
F?  EN'DIOOP 


UNIT  NUMBERING 


Figure  III.2.26 
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um.  caci  sthscript  n.f  nnr,  series  he  ll  a  sr  s.j 
M  heap  ruMir 

•>4  ir  PUM>'Y  NC  999 

rs  skip  l  line 

Ed  PPII.T  l  L 1 1«£  TMJS 

poll  data  than  expected  appears  in  the  dittany  file. 

Tb  ENOIF 
S9  ‘FIMSH* 

AO  IF  FA.RNCN.FA.dN 
M  SUP  1  LINE 

A?  PAINT  :  LINES  VITH  N.FA.RU.FA.TN  THUS 

NOT  ENOUGH  BATTALIONS  HAVl  SEEN  LISICD  IN  OmTTEMY  FILE 
****  *E  ME  E  XPEC  TF.D  »  dUT  0„LY  **<*  WLRE  FOU‘U. 

E5  STOP 

to  CNUIF 
A7  CNUROll  TINE 


Figure  III.2.26  (cont) 
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ixrr.  caci  simscript  it. r,  not  series  n.i 

1  ROUTIt.C  KUl.S .  INPUT  ••  UitllNSt  INPUT  irvJANhl  SeC 

2  "THT5  ROUTINE  REAPs  I*  1 HC  A I  TR  Il.tll  F  5  31  ALL  ICN  AND  HL  MUNITIONS  WITH  THE 

3  *  •  AHPKOHR  I  AT  f  FJ7CS 

9  NORMALLY  K3I1F.  t>  I*  I  COER 
b  ••IF  OF  i'UGS  TRUE  .  PKli«T  1  L 1  Nt  THUS 

6  ••  ;  :  ;  HUNS. INPUT  :  =  = 

7  ••  E*'D 1 F 

3  READ  H .  HE  .HUM  I  T  I  ON  »  N  .  I  C  .Kill*  1 1 IC  N  ,  F.FU7L 
9  CREATE'  EVERY  HE. MUNITION,  IC. MUNITION  ART'  FU2L 
1C  RESERVE  HE.rn..\.RHC*,9|  AS  ,i .  I.E  .  *'U9 1  U  0’4  JY  N  .  T  Y  l»L  .  h  T«  Y 

11  RESERVE  IC.TB.N.,'H|*,*»  AS  N.  1C  .MUNI  UON  JY  N  .  T  Y  PE  .  i3TR  Y 

12  • *rET t Rhine  The  total  nuvlsk  of  me  range  hacks 

13  LOOM  FOR  EACH  TYPC.UTRY  DO  IMIS 
m  LOOR  FOR  EACH  Hl.HU.IIION  HO  THIS 

IS  RL  AD  HC.Trt.N.MII  HE  .Nu*4I  UO.N  ,  TYPE  .P  TR  Y  I 
lb  LET  N.Nl.RANGC  .MAC*  :  N.HL.I4AI.GL  .HACK  » 

17  HC.  IF  .N.RHIIIE  .'1UVI  T  10.4,  TYPl.MFY) 

13  EH0LO0P 

19  ••OCTrRHlNE  THE  TOTAL  NUMBCH  OF  ICN  RANGE  HACKS 
2.1  LOOP  FOR  EACH  1C. MUNITION  Ou  1HIS 

21  READ  IC.Tu.N.RhI  If  ,30\I Jiflh,  TYPC.BTRYI 

22  LCT  N. It. RANGE. MACK  =  N.IC.RANGE  .HACK  ♦ 

23  IC.TR  .N.RHUC.rtjM  T  ION,  IYPl.LTRYI 
23  ENGLOCH 

25  E  T40L00P 

26  CREATE  EVERY  HL  .  R  A».jE  .HACK  .  TC.RANGE.HAC*1 

27  LET  count  r  o 
2  5  FQM  FACH  FU2f 

•  29  RLAO  F2.NAHE I  FU2f I 

30  LOOP  FOR  EACH  HE .HIM  l T TON  Go  THIS 

31  READ 

32  HC.IT  1ME.  AUMTI0N)  , 

31  HE  «  WE IGHT  t  HE , HUN 1 1 1  ON  1  , 

3*4  HE. COST  IHE.HUNITIO'  1  , 

35  HE  .VCLLEY.RA01hE.NI'  .IT  ION) , 

7b  HE  .ROUND. SAD  (HE  .HU*.  .UON  1 
37  LOOM  FOR  EACH  FO.’C  03  THIS 

33  READ  F?,HE.RCLYir,J2E.  HE  .  HU.4 1 1  ION  I  ’•TIP'S  luG 
39  •'LIST  F  2.HE  .RELY1F0.7E,  HE  .HUM  T  ION ) 

9'J  ENHLO0P 

*.1  ••REAi'  ATTRIBUTES  CF  EACH  RANOE  HACK  1WHTCH  Is  ASSOCIATED  WITH 

32  ••  A  SPCCIFIC  HE  H1UITI0N  FIRED  PY  A. SPECIFIC  TY°E  c-AITERY  AT  A  SPECIFIC 

**  3  •  •9A*-' DC 

93  LOOP  FOR  EACH  TYPE.jTRY  WHEN  HE . TH . N .«H 1  HE .HUM T ION ,  TYPF.BTRY1  >  D  DO  THIS 
95  LET  f  =  COUNT  ♦  1 

'to  LET  P  =  COUNT  ♦  HC  .  IT.N.RH1HC  .MUNITION,  TYPE.UtRYI 
9  7  LOOP  FOR  RH  =  A  T f  U  DO  THIS 

93  FILC  IDE  RH  IN  HE . T j . RH ,L I S F C HE . "UN I T I ON ,  TYPE . h TRY  ) 

99  READ 

50  R. RANGE,  ••  A 5 DEC  79  XRGR 

El  HE. RH, TOTAL. CPE1RH*, 

72  HE.RH.R0U.4D.CPEIRH1 


Figure  III.2.27 
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LINE  C  AC  I  S1MSC.7IPT  It.*  1  I  fit)  SI.'  HIES  RtlH.F  <>.l 

!J  LET  ME.RH.RAHGE|RH>  z  R . R ANrF M G / t N .  ••  YS0CCT9  t  RGR 

umloop 

!'j  LET  COUNT  -  CJJIT  ♦  HE.Th.U.RMlHF.MUNITlni.,  ITrC.UTRYl 

s»,  e,.i>lcop 

S  t  E NOE OOP 

S>.  I.CT  COUNT  z  (1 

‘V  LOOP  FOR  EACH  1C. MUNITION  DO  IH1S 
It  READ 

M  IC.irUC.. MUNITION!  , 

H  !C.  Vf  IGIIT  UC  .HUNT  T  1  jN  I  , 

IS  IC.COSTIIC. MUNITION!  , 

NM  IC.HFUAF  ILTTYlIC.RiJNITIOk*  ,  ♦•TIMES  100. 
t  b  I  C.  SOUP.  I  NOE  XI  IC.MIJ.,:  TIONI  , 

(.!>  IC. VOLLEY.  RAH  I  IC.NIJ  ,UION  1 , 

(•  7  IC.M.SUliMUC  .HUilTIUN! 

to  LOOP  FOR  EACH  T  Y  I’!'  •  .J  TRY  R I  T  it  I  C .  It.  .*1  .nH  I  T  C  .  HUNT  T  ION  ,  T  YPF  •  B  T  P  Y  )  >0  PO  THIS 

t’>  PC  AO  IC.  TO. SLOPE  (IT  .HUM  TIO.J,  TYPE  .  B  T  N  Y 1  , 

tu  ic .  ra.iNTrRccPii ic.''U’mioi. ,  typl.otryi 

T  1  ••LIST  IC.TR. SLOPE  I  *C. MUM  If  ION,  TYPr.oTRYI, 

7.7  "  IC  ,  T  I. .  I  'I  TF  ‘ICC  P  T  IIC. MUNITION*  TVPL.UTRVI 

7  3  LET  A  z  COUNT  ♦  1 

T'l  LET  P  :  COUNT  ♦  TC.TH,N,R||(4C.  IH!F‘i  T 1 0!»»  TYPL.GTRY! 

7S  *  •  P  L  A  l)  ATTN  MUTES  cl  EACH  RaNuE  HACK  IMHICH  IS  ASSOCIATCP  WITH 

7(.  *  *  A  SPECIFIC  IC"  P.IN'ITIOI.  I  IKEU  oY  A  SPFCIFIC  TYPE  BATTFRY  AT  m  SPECIFIC 

77  ••range 

7A  LOOP  FOR  INI  :  A  TO  11  DO  THIS 

79  FILL  THE  Rlt  IN'  1C. To..! II. LIST  (IC. MONITION.  TYPC.ETWYI 

■!o  nrA.o 

•SI  t'.RA*'f,r,  ••  <S;JEC7»  XRC.P 

r>i  ic.rh,  total,  cpcirmi, 

FI  I C  .RH  ,1'UUI.L) .  CP  1. 1  EH  ) 

I’M  LFT  TC.RH.RANC.rir.Hz  I; .  RANGE  *  l  P  /  I  o  .  ••  SSDECT9  ARGk 

F3  L’NDLOOP 

Ft,  LET  FOUNT  :  COUNT  ♦  IC.TP.  I.RlllIC.HUMTIPti,  T  Y  ”  C  .ilTRYl 
F7  ENDLOOP 
PR  E  NPL  C  OP 

RV  "LIST  ATTRIBUTES  Or  EACH  FU?l 
9J  ••LOOP  FOR  EACH  HE  .HUNI T  ION  DO  THIS 
9l  "LIST  ATTRIBUTES  OF  HE. MUNITION 
97  "LOOP  FOR  EACH  T  Y  P  E  .  i>  T  R  Y  UO  THIS 
93  "LIST  ATTRIBUTES  OF  EACH  HE. II  AMU.  .HACK  IN 
PR  "ME. TP. RM.LISIIME .MUNITION,  T  YPF  .  BTI'.Y  I 
9  b  "CNPLOOP 
9t.  •  *Ewr  LOOP 

97  "LOCI'  roil  EACH  IC.VJNITIO!  UO  THIS 
id  "II' T  ATTRIBUTES.  CF  IC. MUNITION 
9 ‘I  "LOOP  ION  F  ACM  TYP_.jT9Y  UO  THIS 
inn  "LIST  ATTRIBUTES  OF  EACH  I C .R ANTE  .HACK  IN 
li’l  ••IC.TI'.RII.LISTITC  ».IUNI  T  TON  ,  TYPE  .FJTPY  I 
IC2  "ENL'LOUP 
1  C  i  "EiF'lOoP 

iom  pci l a sr  hc.tb.n.rh,  ic.tp.n.ph 

IPS  ENBROUT 1 NE 


Figure  111.2.27  (cont) 
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L1M  CACI  5 1 ''  Stli  1 1*  t  tK*.  HOC  SERIES  RELtASF  f.i 

1  DOL'ITr.r  SUUM  •  K.IMIT  ••  »  SUMP  N  i  NPlt  I 

2  ♦  ’  Tri  T  S  ROUTINt  IJ  r  A  T  j  IN  THE  OA7A  SET  FOR  LACH  SUMiillM  1 10»' 

I  NORMALLY  tiyOL  I  •»  INTEGER 

*4  IF  HP  UG5TF Ilf  •  PR  luT  t  L1NL  THUS 
z  :  z  SUPM • I N  PU )  :  :  - 
t  ENOIF 

7  DEFINE  PERSONNEL  To  MEAT.'  1 

II  READ  S.MISjMlJNITtON 

<3  CRCATL  EVERY  SvJ  a  P|IM  T  I  ON 

lu  tor  each  sua^uu  nr  j 
U  READ  SM. MAKE  ISUUT'UM  HON) 

12  LOOP  FOR  LACH  SUIvl'U.«t  I  ION 

13  TOR  FACH  LNVIRO'IME*  I  UO  THIS 

m  READ  E5.Ni.LY  (  Tn  V  IRO.,-c.  NT  ,  SUbMUU  1  UON  )  ♦♦TIMES  DO 
lb  ••LIST  L  S  .RE  LY  ( ENVIRONMENT  ,  SUb  ''UNi  T  10.,  I 
It  ENOLOCP 

17  LOOP  FOR  ..  H  S'JOMlLi  I T  ION 
la  TOR  TACi.  Lr.v  IRONHE’  r 
19  FOR  TACll  POSTURE  CO  THIS 

2U  REACT  CPS.LA.PfRSl  r.4  VI MONME  N  T  ,  PC  S  T'IRr  ,  SURMUN I  TI  ON  I  "IN  SC.HFTFRS*10 
?1  '  '  L  I  r  T  LPS.LA.PlF-S!  E  *1 V I  R'ONMEM  ,  PO  S  T  DM  E  ,  SUPMUNT  T  ION  ) 

?1‘  ENPLOCP 

?i  LOOP  )  0 R  EACH  SJRMmiTION 
ZR  FoP  r.\Cli  E  NV  I  ROMP  C  N  I 

?S  TOR  EACH  TYTC .EQUIPMENT  Unless  TYPC,ruMirHENT-pCPiONNEL  00  THIS 
re  RlAU  TrS.LA.ESUlP  C  TYPE.  FOUIPMENT,  ENVIRONMENT,  SUP.MUliTTIOV  ("IN  S0.M.A10 
?/  •  •  L I  *  T  TEs.LN.l  lUIPl  TYPE .EQUIPMENT  .FNVIPONMEM , S JR  HUN  I T I  ON > 

?u  E NOLOOK 

.  ?9  PRINT  1  LIRE  ,ITH  T_ S .L A . I QUI V  1 2 ? , 1 , A  I  THUS  ••  AZ8JANB1  EEC 

R  =  L»Sf  fU*  MUNITION  !.  t  'IT  =  :  : 

T  1  C  N  C'  R  0 1 1 1  T  •’>  • 


Figure  III. 2.28 
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L  1  f  L  C  AC  1  SlMSCRIPT  11. r  HOP  SERIES  PS  EE  ASr  .'..5 

1  ROUTINE  Mlt.L  A.  IHI'll  t  »*  \  3-21-79  JN  -  13  LIST  PATa  *HF  3E  AT INPUT 

2  ••THIS  ROUTINE  ifTtfij  IN  LETHALITY  OATa  FOR  EALH  Ui  MUNITION 

3  NoRrtJLLY  MODE  IS  IMKOCA 

<.  DEFINE  IM.RSONM  I.  10  ML  AN  1 

b  if  prtur>=tRUf. ,  phi, a  l  linn  thus 
=  :  :  HC.LA. INPUT  :  :  : 

7  END  IF 

B  LOOP  FPK  EACH  lYPE.oTHY 
V  TOP  EACH  HE  .  MUMX  710,. 

Ill  FOR  TACK  FU?C 
11  FOR  FACH  POSTURE 
U<  TOR  TACII  El.V  TROUPE*1  f 
13  TOP  TACK  KH  IK  IU  .Tn.mi.LlS7 

m  ihc. munition, TYPr.niPYi 
i<j  no  this 

u.  "  LIST  N. HE . IH.FH.wIST »Pr  .MUNITION, TYPE. UTkY »  *  S-31-7V  JN  INSERT 

17  *•  LIST  TYPF.NTPY.Hl  .MUNITION, rUZE.r'uMUKt.LNVITfoMMENT.RM  YS-31JN 

lh  6  E  All  kFPF  .LA  .PLUS  *  *  IK  SC. METERS 

in  irk, environment  , mo:, tore, nut ) 

?c,  **  i  1st  nrpr  .la.p'kS  »  r.-jwv  j*  activates 

ji  *  ’  iRH,n.viKO»iMri:T  ,MpSTune  ,fu?e  i 
FNOLO0P 

23  LOOP  FOR  EACH  TYPE  .oTWY 
?*t  FOP  EACH  ME.miNiTIO,, 

23  FOR  EACH  FUZE 
2  b  FOR  FtCM  ENVIRONMENT 

27  FOR  EACH  T  YPE  .  Ey  U I  P ,TC NT  Uul.tSS  TYPE  •FOUlPllEUT  -PERSONNEL 
Tb  FOP  'ACM  R'M  IN  HE  .  Til  ,«H  .LIST 
■  TV  IME.  MUNITION,  TYPE.  IMRYl 

30  CIO  THIS 

31  •*  LIST  N  •  IT  i'  .Tit.RH.LiST  A  3-31-79  JN  InSEHT 

32  "  LIST  TYPE. ilTRY,.H'.. MUNITION, FUZE, fi.VIRONMENT, TYPE, £CUIP“E>lTf«H  X3-JIJN 

33  READ  RTLf  .EA  .EUUIP  ”IN  SO  . -E 7t  R3*in 
3H  (RH.TYPl.EtUIPMLta  .  wN  V  I RONMLN 1  ,FUZE) 

35  "LIST  RTH .LA. I  CHIP  7  3-31-7'  JN  ACTIVATES 

36  •  MHM.T  YPC.F.JUI  PSTN  1  .ENVIRONMENT  ,HlZF  > 

37  ENDLOOP 

So  ENPROLTINE 


Figure  III. 2.29 
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tut:  caci  sivscRi°t  it. «  non  series  rt  .easf  f>.j 


I  !IOUn  ST  WAR!  .AkTY  "  H.ARFiAK’T  tlOJANBI  SE  C 

”» 

5  "THIS  .'CUUNI  USES  THE  CO  SABI.  SC  SUL  T  S  0*  RED  *  f  TILLERY  nojNt  OS 
•.  "OLl't  UNITS,  CALCII.M'.S  LOSSES  TO  1UPS  IULNlR  A  I'lF  To  APT  TLLEPY 

S  •  •  F I  -  L  ATTRITIOI  AN.j  PASSES  Tut  PwSUtTS  *u  THEY  “AT  BE  POSTED  ON 

o  "THC  tu,  I T  STATUS  F.LL',  T«r.  RESULTS  OF  THE  '.IN !  T  STATUS  FTLE  UPPATE, 

i  "which  effect  me  imimER  of  available  targets  thkn  are  returnf* 

A  "TO  THIS  KCUTINP  rjll  THC  NEXT  jURATION. 

9 

1J  NORMALLY  HONE  IS  INTEiSCR 

II  DEFINE  TOE  as  A  ?-tn  PLUS  TONAL  PLAL  AORAY  "X2SJAUR1  SEC 

i?  define  la,x,iiojhp.p1_ly,coveh,f'I.<5au.?,frac.cas  as  ?lal  v art apl r s 

13  DEFINE  FtHST  .TRAC. FAS. RCMAI.x.FPAC. CAS  AS  REAL  VAlUAfeLtS  "T30JA|,F1  SEC 
m  DEFINE  PERSONNEL  TO  ML  AN  1 

IS  DCF  IN  F  F w • T  P .CLASS  AS  An  ALPHA  VARIABLE  "  XhAJANBI  SEC 

It  nEFINE  ROUND. NAME  »,  All  ALOHA  VAPIAULl  "  SA'OJANPl  SCC 

17 

It  "READ  DETAILS  or  Tnf  F 1 R  L  MISSION  FPU*  COSAGL  W  ASF  HISTORY  TAPE 
P>  "  F  0  °  the  t  A  R  0  e  r  U»ET  head  .id  OF  IAHOLTS  AVAlLAbLC  in  EACH  CATFUCRY 

;l  "frps  the  uu: r  sttius  file 

El  "CO“PUTE  THE  FRACTIONAL  CASUALTIES  USt».r,  THC  APPROPRIATT  ALGORITHM 
r?  "SET 
23 

?4  IT  DEfUS  :  TRUE,  PPINI  I  LINE  THUS 
=  =  l’.'TCRTNG  NARF.A'UY  r  :  t 
2o  E  N  0 1 r 

E  7  R  C  S  F.  o  V  E  IDE  AS  JLUE  .  Ill !  7  .  Cl  I »  nY  2»  "  t25JAN*»l  SEC 

Ec  FOR  1  :  I  TO  dLUC.II.,:  T.CIITR  Do 

?o  nor  j  :  i  to  ;i  no 

JO  R  t  AD  TOEII.ul  "  % ??  JA  *'b  I  SiC 

Jl  NNDLOOP 

J2  EnDLOOP 

JJ  PRINT  I  LINE  WITH  T  ,j  E  (1  ft  7  ,  J  j  I  THUS  "  t.UJA'lM  SEC 

=  =  LAST  TOE  0 1 Y  Ri.AU  •>*■»*  :  ;  : 

?S  LET  FLAi  :  0 

36  USE  UNIT  u  row  INPUC 

37  LOOP  UNTIL  I  LAD  =  1  DO  THIS 

31;  IF  DATA  IS  fHP„l> 

3S  LEI  r  L  A  i  1 1 

ME  LEAVE 

4 1  ENDtr 

“2  READ  T»ME. 7,S!jC, FIRE. PLAN 

43  "  PRINT  I  LI.E  WITH  1 1 1;  E  .  V  ,  S I OL  ,F  T  RE  .PL  A  N  THUS 

4>t  "  :  i  ;  T I M  E .  V  ***.».**  SIDE  **♦**>>  Fj.RC.PLAN  ******  =  ;  : 

4S  READ  HANOI:  ,rH.F  IRCD.VOLS.MFY 

4  u  "  PRINT  l  Lti'.'.  RITH  NANUF  ,F“.F  1REO.VOLS.F  TRY  THUS 

4.’  "  z  z  z  RANI5L  P******  FH.F  IRLD.VULS  «■>**>*  UTRY  ******  r  :  r 

4C  READ  UY  ,UM  ?  (  •  T  AYI  ,Tb  ,  TUUES 

4  S  "  POINT  l  I.  T  WITH  li  Y  «  UN  T  t  ,  T  ,  TUP  E  THUS 

SI.-  "  :  ;  r  NY.  UNIT  ******  lb  ******  TUI'E  ******  =  C  t 

n  ,t  ao  un i r ,tu,c  at 

52  "  PRINT  l  LIRE  WITH  UNIT.TU.C'T  THUS 


Figure  III.2.30 


UM  CACl  SKSCRIPI  II. r  lien  stoics  Rfl.LASF  b.J 


t  » 

r;4 

E!i 

Tb 

5  7 
ib 

ss 

to 

u 

62 

63 

64 

6  * 

66 
(7 
*  6 
64 

C  A  T  A  Hi. 

71 

72 

73 
7<* 

75 

76 

77 
7i 
79 
60 

*  ?1 
Pi 
P  3 
64 
PS 
6b 
P  7 
03 
69 
9Q 

91 

92 

93 

94 

95 
9b 
97 

96 
99 

X  Cl. 
101 
ir? 
ICO 
104 


"  :  :  :  UU1  t  ******  IU  ******  CAt  ******  :  :  : 

Rf  AO  FM  .t".CLA*S, MUNITION  .ROUND  .  NAHF 
”  PRINT  1  LI*:  WtfH  FH.  TM  ,;LAS*,rtH.«I  1104 ,93UK0.9Al'E  IMUS 

•  «  :  z  r  FP.Tm.CLAS*  ******  **uMTION  ******  HouM'.HAME  ******  ;  r  ; 

RC  AO  FU.’C.H’  r...uCR,*>OIIKn.BUY 
••  PRINT  1  L I *C  WITH  rule  ,940. HACK .ROUND. RClY  THUS 

:  i  :  FUZE  ******  HNS. MAC*  ******  ROUND. RtLY  ••»**  :  :  r 
hEAO  KUH. ROUND*. ST,1>IIAnT 

”  PRINT  1  Llli  WITH  «IIH. ROUNDS, St  .J'JANT  THUS 

•  *  r  ;  z  hum  .onuii'uS  ******  ST  ******  0UA*it  ******  :  :  ; 

READ  COVES, PI. RAJ.?, MSN 

”  PRINT  t  Lit1:  WITH  COVER,  PI.  RAO.  ?,HiN  THUS 

:  CCVFR  ***.*♦  PI.RAu.2  ********.**  MSN  ******  :  :  ; 

READ  TOTAL. CAS 

••  PRINT  l  LIlC  WITH  TOTAL. CIS  THUS 

:  r  TOTAL. CAS  ******  =  =  = 

PRINT  1  LINE  PITH  TIMC.V  THUS 
AO  FOR  TIHC.V  =  **♦.*#*** 

LOOP  FOP  EACH  TYPE .CCUIPHE6 T  CALLED  tE,  UO  THIS 
LET  FTAC.C»i  =  C.J 

LOOP  FOP  .tCH  ENVIKONHFnT  CALLED  ENVIR,  DO  THIS 

LET  FRAC.tNVIHSRt »L .F T tC . F R AC T TF N VI» ,C A T IT /SO . 

IP  PT.TH. CLASS  =  ICM 
IP  TE  HE  PERSONNEL 

LET  LA  r  Rt*L. FI  TCS  .LA .EQUIP  I  TE,  ENVIP,  ST  )  ) 

/  U. 

LET  X  S  *UA»'|  *  ROUND. RELY  *  ES.HELYI  ENVIR,  ST  ) 
/  IOC.  *  COVE P  *  IA  /  PI, RAO. 2 
wET  FRAC.CAS  :  F RAC. CAS  *1  1.0  -  EXP.F  I  -  X  M 

*  FRAC. ENV1» 

”7/79  Jl„  UI..CNVIH.F9ACT  STORED 
rviL  ”PtRSO»;(.CL  AS  CD, SOD 

LOOP  FOR  CACH  POsTJRL  CALLED  DOST,  DO  THIS 

LLT  LA  s  RIAL.rtEPS.LA  .PERSI  ENVIR,  POST, 

st  »  »  /  n 

LET  X  =  quart  *  ROUND. PLLY  *  ES.RELYt 
Li.VIR.  ST  I/1UU.  *  LA 
*  fOVtP  /  AH. RAO, 2 

LIT  FRAC.CAS  ;  FRAC.CAS  ♦  I  l.D  -EXP.F  I 
-X  1  1  *  I*  9  A  C  .ENVIR 

•KtAl.rt  CPU. WARNED. PRACTT  CAT,  POST, 
MISSION  .)  )  /  TOIl. 

LNDLOOP 

Cl,'.)  IF 

lls!:  ”he 

n  IF  CO  PERSONNEL 

IF  T  3  ML  •  V  *P.  I  ItUT  F  j  ,  V  -  UN  ,L  A  S  T  .  AR  T  Y  .F  NR  I  UN  T  T  » 

>  10.  *  V -1.-79  * 

*  •  T Nth  FIRST  VOLLFY  HAS  TROOPS  UNWARNED 
LET  FIRST. FRAC. LAS  =  U.O 

LLl  RLMAlN.rD.iC.  CAS  =  D.D 

LOOP  T  06  EACH  PO c I  URL  CALLED  POST,  DO  THIS 


Figure  III. 2. 30  (cont) 
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UM  C»U»  II.* 


i  mr  set  irs  'i  iLi'ir  •».: 


i<  v 
i  nt» 
i") 
l'u 
IC9 

1  VC; 
vu 
tu 
m 

l  19 
lib 

1  u- 

I1T 
lie 
1  19 

iro 
in 
i  r  ? 
Ui 

1  ?9 

U*. 
l  :t 
l :  ? 
IT'' 

i  r  v 

i*: 
ui 
ITS 
.1  53 
1?9 
l  JS 
lie 
1  M 
ITS 
1  T9 

i*»n 

191 

19? 

191 

19t* 

IMS 

19h 

19? 

198 

199 

IS, 
1*.  1 
IS: 
l*.l 
1  *»9 
l!  b 
lit- 
1*7 
lit 
1*  V 

l » u 
l*  1 
IK. 
It  1 
IF* 
IK. 


l r t  la  r  rr.'.L.ri  pi  pf .  c  a  .  1 1 1  s  t 
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Chapter  3 

UTILITY  WIMP/TOE-IN 


3.1  DESCRIPTION  OF  PROCESSING;  The  WARF  Intermediate  Materiel 
Processor  (WlMP)/TOE-IN  utility  program  was  developed  to  prepare  data  (an 
output)  that  is  used  as  an  input  to  the  WIMP  program  (Chapter  2).  This  programs 
application  is  contingent  on  the  utilization  of  the  WIMP  in  the  WARRAMP 
methodology.  The  program  is  implemented  in  the  FORTRAN  V  programming 
language,  and  consists  of  approximately  25  lines  of  executable  computer  source 
code. 

3.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  the  WIMP/TOE-IN  program  is 
to  restate  the  modeled  military  units  table  of  organization  and  equipment  (TOE). 
The  military  units  modeled  in  the  high  resolution  combat  model  (COSAGE)  have 
their  respective  TOE's  given  in  data  specifying  items  of  equipment  (including 
personnel)  by  specific,  major  equipment  item(s).  The  WARF  methodology  requires 
the  TOE  be  stated,  or  mapped  into,  groups  by  artillery  (indirect  fire)  vulnerability 
category.  The  present  methodology  recognizes  22  vulnerability  groups.  The 
placement  of  specific  equipment  items  (by  LIN  CODE)  into  one  of  the  artillery 
vulnerability  categories  is  a  function  of  ballistics  analysts  and  not  a  function  of 
this  program.  Additionally,  the  high  resolution  combat  model  does  not  model  all 
equipment  or  parts  items  of  a  military  unit's  TOE  that  realistically  would  be 
subject  to  damage  or  loss  in  combat.  It  is  the  purpose  of  this  program  to  account 
for  all  equipment  items  of  analytical  interest  in  all  of  the  modeled  unit's  TOE's. 
The  program  achieves  this  task  for  the  analyst  by  performing  the  following 
functions.  First,  the  input  data  file  element  called  "RAM/MATRIX"  or  "WIMP/- 
MATRIX"  (an  output  from  the  utility  by  the  same  name  -  Chapter  11)  is  read 
sequentially  and  placed  into  an  array.  This  is  the  specific  TOE  data  by  type  of 
military  unit.  Second,  the  unit  data  (force  array,  which  is  posture  unique)  is  read 
sequentially  and  a  search  of  the  TOE  data  (array)  is  made  for  a  match  between  the 
unit's  type  and  the  TOE  code.  When  the  match  is  found,  the  units  identification  is 
written  to  the  output  file,  followed  by  a  :opy  of  the  appropriate  TOE  in  formatted 
write  statements. 

3.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  WIMP/TOE-IN  I/O 
structure  is  depicted  in  figure  111.3.1.  This  general  graphic  presents  the 
input/output  filename.elementname  normally  associated  with  the  programs 
operation.  The  four  input  data  files  for  the  UNITXXX  data  denote  that  (at 
present)  the  methodology  applies  four  force  array  (unit)  data  files  for  a  study 
analysis.  The  program  is  executed  once  for  each  of  the  postures  (unit  data) 
portrayed. 

3. 1.2.A  INPUT  DATA  AND  DATA  BASE:  The  following  input  data  files  are 
required  for  the  program.  The  normal,  demand-mode  runstream  for  the  programs 
execution  requires  that  this  dicta  reside  in  a  cataloged  mass-storage  (disk  resident) 
file.  The  data  files  are  required  in  the  order  discussed. 

o  RAM/MATRIX  (or  WIMP/MATRIX)  data.  This  input  data  is  produced  (as 
output)  from  the  utility  RAM/MATRIX  discussed  in  Chapter  11.  The 
data  is  formatted  with  integer  and  alphanumeric  data:  a  sample  of  the 
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file  is  presented  in  Figure  lit.  3. 2.  Twenty  three  data  points  are 
contained  in  each  record;  each  record  defines  a  TOE  for  a  type  of 
military  unit.  It  has  a  non-standard  record  length  of  96  columns. 

The  record  format  is  as  follows: 


Column 

Descriptor 

Field 

1 

Blank 

IX 

2-3 

Alpha  TOE 
identifier 

2A 

4-5 

Integer  TOE 
sequence  number 

21 

6-94 

Integer  equipment 
quantities  for  each 
of  the  (22)  vulnerability 
groups 

22(14) 

Unit  (force  array)  data.  This  file  is  a  copy  of  the  manually  or  SUSF 
created  data  file  for  the  high  resolution  ground  combat  model 
(COSAGE).  Originally  produced  as  a  free-formatted,  all  integer  mode 
data  file,  this  program  requires  that  the  first  record  for  each  unit  have 
the  unit  identification  and  type  unit  identification  in  the  format 
specified  below.  A  sample  of  the  data  file  is  depicted  in  figure  III. 3. 3. 
In  the  example  shown  the  first  record  that  contains  data  to  be  used  by 
the  program  would  be  record  41.  The  data  record  format  is  as  follows: 

Column 

Description 

Field 

1-6 

Skipped,  blanks  and 
user  sequence  number, 
or  total  units  (record  1) 

6X 

7-9 

Unit  identification 
number 

31 

10-12 

Skipped,  blanks 

3X 

13-14 

Type  unit  identification 

21 

15-80 

Not  considered, 
advance  to  next  record 

— 

3. 1.2.B  Output  Data  and  Data  Files:  This  program  produces  one  (1)  output  file, 
which  contains  the  restated  TOE’s.  The  file  element  name  is  generally  the  same 
as  the  program,  with  the  posture  of  the  input  file  appended  as:  TOE-IN-XX;  the 
"XX"  is  replaced  through  editing  of  the  procedure  of  runstream  file  to  provide  an 
audit  trail  of  data.  A  sample  output  file  is  depicted  in  Figure  III.  3. 4.  output 
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data  produced  is  positional  and  sequentially  <  .■oiu'nd?  there  are  no  labels  identify¬ 
ing  the  type  unit  TOE.  Thus  the  first  unit  t  .nd  in  the  force  array  (unit 

data).  Two  records  in  decimal  format  are  produc  d  for  each  TOE  with  a  blank 
record  between  TOE's.  Twenty  three  data  values  are  written,  the  first  position 
always  accounting  for  personnel,  and  because  personnel  are  not  of  analytical 


interest  in  the  WARF  methodology,  is  manually  set  to  zero, 
are  as  follows: 

The  record  formats 

Column 

Descriptor 

Field 

Record  1: 

1-96 

Personnel  their 
vulnerability 
group  1 1  equipment 
quantity. 

12(1X,F7.2) 

Record  2 

1-88 

Vulnerability 
group  12  thru  22 
equipment  quantity. 

1 1  ( 1  X.F7.2) 

Record  3: 

1-80 

Skipped  record. 

— 

3.1.2.C  Data  Element  Dictionary:  The  data  elements  used  in  the  program  are 
as  follows: 


Variable  Name 

Mode 

Value 

Definition 

NCOCEDl(l) 

Integer 

0-500 

One-dimensionai 
array  for  the 
type  unit  value 
from  the  RAM/MATRIX 
data  file. 

NCODE2 

Integer 

I 

Program  run  variable 
reset  at  input  for 
the  type  unit  from 
the  UNITXXX 
data  file 

NQTY(IJ) 

Integer 

0-500,  0-22 

Two-dimensional 
array  for  the 

TOE  of  each 
type  unit  from 
the  RAM-MATRIX 
data  file. 
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PERS 

Real 

000 

Constant  program 
variable  for  the 
personnel  quantity  value. 

QTY  (1,3) 

Integer 

0-500,  0-22 

Two-dimensional 
array  to  hold 
the  TOE  data  for 
the  output  file. 

NTYPE  Integer 

I 

Program  run  variable 
re-set  at  input  for 
the  unit  identification 
number  of  the  unit 
record  being  read. 

3.1.3  PROGRAM  PROCESSING;  The  program  processes  are  straight  forward 
as:  read  data,  logic  tests  for  equality  and  write  output  data.  The  program  consists 
of  one  "routine"  and  thus  common  blocks  and  linkages  are  not  used. 


3.1.3. A  PROGRAM  RUN  DESCRIPTION:  The  program  runstream  is  depicted  in 
Figure  III. 3. 5.  The  program's  short  length  enable  user's  to  run  the  program  in  the 
demand  mode  from  the  terminal.  See  Volume  I,  Section  111,  Chapter  3  of  this 
document  set  for  additional  details. 

3. 1.3. B  PROGRAM  LOGIC:  The  programs  logic  is  graphically  presented  in 
Figure  III.  3.6. 

3.1.3. C  PROCESSING  FEATURES:  The  processing  features  are  straight  forward 
logical  tests  of  the  data  and  can  be  determined  from  a  review  of  the  program 
listing,  Figure  III, 3.7,  and  logic  diagram,  Figure  II1.3.5. 

3.2  OPERATING  ENVIRONMENT:  The  WIMP/TOE-IN  is  compiled  on  and 
operated  on  the  USACAA  UNIVAC  1100/82  operating  system  which  is  a  secure 
system  in  compliance  with  Department  of  the  Army  security  directives. 

3.2.1  Hardware:  The  only  explicit  hardware  requirements  is  that  provided  by 
the  UNIVAC  1100/82  OS  and  a  compatible  terminal  (UTS  400).  The  operating 
system  dynamically  handles  on-line  storage  requirements  for  the  input/output 
files.  Object  code  and  permanent  files  for  the  1/0  functions  and  runstream  must 
be  explicity  cataloged  (assigned)  to  disk-pack  file(s)  either  removable  or  fixed. 
They  may  reside  on  a  private  disk  or  system  (public)  disks. 

3.2.2  SUPPORT  SYSTEM:  This  program  requires  the  following  for  demand 
processing.  The  program  has  no  Executive-8  release  dependent  characteristics. 

3.2.2.A  SYSTEM  SOFTWARE:  The  program  utilizes  the  following  system 
processors. 

o  ED  -  text  editor  processor 
o  MAP  -  relocatable  code  collector 
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3.2.2.B  COMPILER;  The  operating  system  library  contains  the  Fortran  V 
compiler  for  program  compilation.  The  compiler  is  envoked  by  the  @FTN 
command;  refer  to  UP  40GO  for  diagnostic,  and  supporting  work  file  (temporary) 
requirements. 

3.2.3  DATA  BASE:  The  data  base  files  necessary  for  program  operation 
were  discussed  in  paragraph  3. 1.2.A.  These  files  exist  as  user  cataloged  file 
elements  and  are  not  part  of  a  formal  data  base  structure. 

3.3  MAINTENANCE  PROCEDURES;  The  relative  size  of  this  program 
minimizes  the  maintenance  on  the  program.  The  program  is  well  documented  with 
comment  lines.  Modifications  to  the  program  must  be  clearly  denoted  by 
programmers  in  the  manner  shown  in  the  listing,  Figure  III.  3.6.  Page  by  page 
changes  to  this  manual  must  be  made  when  changes  to  the  program  are  made 
which  alter  the  logic,  inputs  or  outputs.  The  following  information  is  pertinent  to 
the  program's  maintenance  (space  provided  for  notes): 

Source  Code  Filename.Elementname: 

Absolute  Code  Filename.Elementname; 

Space  required,  source  code: 

Space  required,  Object  (absolute)  code: 

Archived  ..ape  location: 

Read/Write  protect  keys:  Established  by  the  current  custodian. 

3.3.1  PROGRAMMING  CONVENTIONS  Each  function  of  the  program  is 
documented.  Line  labels  begin  in  column  1  and  source  code  in  column  7;  standard 
Fortran  techniques  are  employed  with  FORTRAN  V  conventions. 

3.3.2  VERIFICATION  PROCEDURES:  The  program  is  verified  by  test 

executions  (runs)  of  the~program  followed  by  hand  calculations  and  comparisons  of 
the  results. 

3.3.3  ERROR  CORRECTION  PROCEDURES:  Debugging  and  error 
correction  is  accomplished  by  an  examination  of  the  compiler  listing  and 
examination  of  the  run  execution  (PRINT$)  file. 
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DICTIONARY 
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Chapter  4 

UTILITY  WIMP/LOSS-RATES 

4.1  DESCRIPTION  OF  PROCESSING!  The  WIMP/LOSS-RATES  utility 
program  was  developed  to  produce  the  final  product  of  the  WARRAMP 
Methodology  for  materiel  and  the  WARF  concept.  The  programs  application  is 
contingent  upon  the  utilization  of  the  WIMP  in  the  WARRAMP  methodology,  as 
opposed  to  the  AMMO-RATES  methodology.  The  program  is  implemented  in  the 
Fortran  V  programming  language  and  consists  of  approximately  40  lines  of 
executable  computer  source  code. 

4.1.1.  PURPOSE/FUNCTlONSt  The  purpose  of  the  WIMP/LOSS-RATES 
program  Is  "to  summarize  the  losses  of  blue  equipment  given  N  samples  (executions 
of  the  WIMP)  produced  from  the  red  artillery  engagements  on  the  blue  force  (one 
selected  posture),  and  compute  the  total  average  losses  (quantities)  of  equipment 
by  artillery  vulnerability  group,  and  compute  a  rate  of  loss  or  percentage  loss  by 
artillery  vulnerability  group.  These  tasks  are  achieved  for  the  analyst  by  the 
program  through  the  accomplishment  of  the  following  functions.  First  the  input 
data  (output  from  the  WIMP)  is  read  in  and  stored  in  an  array  sequentially,  per¬ 
forming  the  totaling  computation  for  each  artillery  vulnerability  category.  The 
current  methodology  specifies  22  groups,  plus  1  for  personnel;  a  total  of  23.  An 
average  loss  for  the  N  runs  for  each  vulnerability  group  is  computed  and  stored  in 
an  array.  Next  the  WIMP-XX/TOTAL-CAT  data  is  read  by  the  program.  This 
data  is  the  total  number  of  items  per  vulnerability  category  modeled  in  the  force 
array  (for  the  posture).  The  losses  are  computed  by  simple  subtraction  of  total 
quantity  lost  from  the  total  authorized  quantity  by  category.  The  calculations  are 
performed  sequentially  and  the  results  written  to  the  respective  output  files  with 
formatted  write  statements. 

4.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  WIMP/LOSS-RATES 
1/0  structure  is  depicted  in  Figure  III.  4.1.  This  general  graphic  presents  the 
input/output  filename.elementname  normally  associated  with  the  programs 
operation.  The  four  files  in  each  group  denote  that,  at  present,  the  methodology 
applies  four  force  array  postures  for  a  study  effort.  Also  there  are  multiple  (N) 
copies  (samples)  of  each  posture  (WIMP-XX-N)  input.  The  number  of  copies  is 
determined  by  the  analyst  statistically  (per  the  number  of  COSAGE  samples)  to 
satisfy  statistical  confidence  requirements. 

4. 1. 2.  A  INPUT  DATA  AND  DATA  BASE;  The  following  input  data  files  are 
required  for  the  program.  The  normal,  demand  mode  (interactive  processing) 
runstream  for  the  programs  execution  requires  that  the  data  reside  in  a  cataloged 
mass-storage  (disk  resident)  file.  The  data  and  files  are  required  in  the  order 
discussed.  The  runstream,  Figure  III.4.2,  performs  two  operations  on  the  data 
prior  to  program  execution.  First,  the  W1MP/XX-N  data  files  are  consolidated 
into  one  file  (logical  unit)  through  the  @DATA,  I  command.  Second,  the  TOTAL- 
CAT  data  is  placed  into  a  logical  unit  file  via  the  @DATA,  I  command. 

o  RUN  STREAM  data.  Two  integer  data  values  are  read  by  the  program; 
both  values  are  contained  in  the  runstream  (record  39,  Figure  111.4.2). 
The  first  is  the  total  number  of  blue  units  represented  in  the  particular 
force  array,  the  second  is  number  of  the  quantity  of  posture  samples,  N, 
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input  (number  ol  copies  of  the  W1MP/XX-N  file). 

o  WIMP/XX-N  data.  This  input  data  is  produced  (on  output)  by  the  WIMP 
program  discussed  in  Chapter  2.  The  file  is  formated  with  decimal 
(real)  data  as  depicted  in  figure  HI. 4. 3.  It  is  incumbent  on  the 

runstream  user  to  edit  the  runstream  and  replace  the  "XX-NM  character 
string  with  the  appropriate  posture  abbreviation  and  iteration  number, 
e.g.  "AT-9,"  denoting  the  attack  porture  force  array  data  and  the  9th 
run  sample. 

o  W1MP-XX/TOTAL-CAT  data.  This  input  data  is  produced  (on  output) 
by  WIMP/TOTAL-CAT  program  discussed  in  Chapter  13.  The  file 
consists  of  one  (1)  record  of  formatted  integer  data  per  artillery  vulner¬ 
ability  group  plus  personnel  (23  each)  as  depicted  in  figure  I1I.4.4.  One 
file  is  utilized  for  each  posture  modeled  in  the  high  resolution  ground 
combat  model;  however  one  copy  of  the  appropriate  posture  is  required 
for  program  execution. 

4.1.2.B  OUTPUT  DATA  AND  DATA  FILLS*  This  program  produces  two  (2) 
output  files,  one  of  which  contains  the  loss  data  and  the  second  contains  the  loss 
rate  data.  The  output  is  placed  into  a  cataloged  file  as  a  file  element  according 
to  runstream  commands.  The  files  are  produced  by  the  program  in  the  order 
discussed. 

o  WIMP/LOSS-XX  output  data  and  file.  The  sample  output  data  file  is 
depicted  in  Figure  111.4.3;  one  record  is  written  in  decimal  format  for 
each  artillery  vulnerability  category  plus  personnel.  The  records  and 
data  are  positional  with  personnel  losses  on  record  1  followed  by  each 
category  on  subsequent  records.  The  record  format  is  as  follows* 


Column 

Description 

Field 

1 

Blank 

IX 

2-11 

Quantity  of 

FI  0.2 

equipment  items  lost 

The  "XX’'Character  string  is  replaced  during  text  editing  of  the  runstream  by  the 
user  to  denote  the  posture  source  data  to  provide  a  data  audit  trail. 

o  WIMP/RATES-XX  output  data  and  file.  The  sample  output  is  depicted 
in  Figure  III.4.6;  one  record  is  written  in  decimal  format  for  each  artil¬ 
lery  vulnerability  category  plus  personnel.  The  records  and  data  are 
positional  with  personnel  loss  rates  on  record  l  followed  by  the  loss 
rates  for  each  of  the  modeled  categories  on  subsequent  records:  The 
record  format  is  as  follows; 
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Column 


Description 

The  simple  percent  of 
the  total  equipment  lost 


Field 


1-7 


F7.5 


The  "XX"  character  string  is  replaced  during  text  editing  of  the  runstream  by  the 
user  to  denote  the  posture  source  data  to  provide  a  data  audit  trail. 

4.1.2.C  DATA  ELEMENT  DICTIONARY:  The  data  elements  used  in  the 

program  are  as  follows: 


Variable  Name 

Mode 

Value 

Definition 

AQLOSSd) 

Real 

0-23 

A  l -dimensional  array 
containing  the  average 
loss  of  equipment  of 
the  indexed  vulnerability 
category. 

AQTY(I) 

Real 

0.  23 

A  l-dimensional  array 
containing  the  average 
equipment  quantity  of 
the  indexed  vulnerability 
category. 

ALOSS 

Real 

A  variable  set 
to  the  computed 
percent  of  equipment  in 
a  category  lost. 

NAUTH(I) 

Integer 

0-23 

A  1 -dimensional  array 
containing  the  total 
quantities  of  the  indexed 
category  in  the 
blue  units. 

NBLUE 

Integer 

— 

A  variable  set 
to  the  input  number 
of  blue  units  modeled 

NRUN 

Integer 

A  variable  set  to 
the  input  number 
of  run  samples 
considered  in  the 
calculations 
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Integer  —  A  1 -dimensional  array 

containing  the  quantity  of 
items  on-hand  by  a 
blue  force  unit,  indexed 
to  the  vulnerability 
categories. 

Integer  --  A  1 -dimensional  array 

containing  the  total  quantity 
of  equipment  items  on  hand, 
by  the  blue  force 
units,  indexed  to  the 
categories. 

4.1.3  PROGRAM  PROCESSING!  The  program  processes  are  straight 
forward.  The  input  data  is  read  in,  totals  are  summed,  the  net  loss  is  computed 
through  subtraction,  and  the  loss  rate  is  computed  through  division;  the  computed 
values  are  then  written  onto  records  in  the  output  file.  The  program  consists  of 
one  "routine"  element  and  thus  common  blocks  and  other  linkages  are  not  used. 

4. 1.3.  A  PROGRAM  RUN  DESCRIPTION:  The  program  runstream  is  depicted  in 
Figure  III. 4. 2.  The  programs  short  length  enables  users  to  run  the  program  in  the 
demand  mode  from  the  terminal.  See  Volume  I,  Chapter  4,  Section  III  of  this 
document  set  for  additional  details. 

4.1.3. B  PROGRAM  LOGIC:  The  programs  logic  is  graphically  presented  in 

Figure  III. 4.7, 

4.1.3. C  PROCESSING  FEATURES;  The  processing  features  are  straight 
forward  logical  tests  of  the  data  and  can  be  determined  from  a  review  of  the 
program  listing  Figure  III.4.8  and  the  logic  diagram,  Figure  III. 4. 7. 

4.2  OPERATING  ENVIRONMENT:  The  WIMP/LOSS  RATES  program  is 
compiled  on  and  operated  on  the  USACAA  UNIVAC  1100/82  operating  system 
which  is  a  secure  system  in  compliance  with  Department  of  the  Army  security 
directives.  User  identification  and  password  codes  are  required  for  system  access. 

4.2.1  HARDWARE:  The  only  explicit  hardware  requirements  is  that  of  the 
UNIVAC  1100/82  OS  and  a  compatible  terminal  (UTS  400).  The  operating  system 
dynamically  handles  on-line  storage  requirements  for  the  input/output  and  temp¬ 
orary  files.  Object  code  and  permanent  files  for  the  1/0  functions  and  runstream, 
must  be  explicitly  cataloged  (assigned)  to  disk-pack  files,  either  removable  or 
fixed.  The  files  may  reside  on  a  reserved  disk  pack  or  system  (public)  removable 
disk  pack. 

4.2.2  SUPPORT  SOFTWARE:  This  program  requires  the  following  for 
demand-mode  processing.  The  program  has  no  Executive-8  release  dependent 
characteristics. 

4, 2, 2. A  SYSTEM  SOFTWARE:  The  program  utilizes  the  following  system 
processors. 
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QTY(I) 


TQTY(I) 


o  ED  text  editor  processor, 

o  MAP  -  relocatable  code  collector. 

o  DATA  -  data  processor  which  develops  the  system  data  format 
(SDF)  f  iles. 

4.2.2. B  COMPILER:  The  operating  system  library  (SYS$LIB)  contains  the 

FORTRAN  V  compiler  for  source  program  compilation. 

4.2.2. C  DATA  BASE:  The  data  base  and  files  necessary  for  program  execution 
were  discussed  in  paragraph  4. 1.2.  A.  These  files  are  ail  Field  data  in  SDF 
format.  These  files  exist  as  user  cataloged  file  elements  and  are  not  part  of  a 
formal  data  base  structure. 

4.3  MAINTENANCE  PROCEDURES:  The  relative  size  of  this  program 
minimizes  the  maintenance  on  the  program.  The  program  is  well  documented  with 
comment  lines  (records).  Modifications  to  the  program  must  be  clearly  denoted  by 
programmers  in  the  manner  shown  in  the  listing,  Figure  III.  4. 8.  Page  by  page 
changes  to  this  chapter  must  be  made  when  changes  to  the  program  are  made 
which  alter  the  logic,  input  or  output,  the  following  information  is  pertinent  to 
the  program  maintenance  (space  provided  for  notes): 

Source  code  Filename.Elementname: 

Absolute  code  Filename.Elementname: 

Space  required,  Source  code: 

Space  required,  Object  (absolute)  code: 

Archieved  tape  location: 

Read/Write  Protect  keys:  Established  by  the  current  custodian. 

4.3.1  PROGRAMMING  CONVENTIONS:  Each  function  of  the  program  is 
connected  in  the  listing;  standard  Fortran  techniques  are  employed  with 
FORTRAN  V  conventions. 

4.3.2  VERIFICATION  PROCEDURES:  The  program  is  verified  by  performing 
test  executions  (runs)  of  the  program  followed  by  hand  calculations  and 
comparisons  of  the  results. 

4.3.3  ERROR  CORRECTION  PROCEDURES:  Debugging  and  error 
correction  is  accomplished  by  an  examination  of  the  compiler  listing  and  the  run 
execution  (PRINT$)  file. 

4.3.4  SPECIAL  MAINTENANCE  PROCEDURES:  None. 
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WIMP/LOSS-RATES  STRUCTURE 
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Figure  III.  4.1 


186 


i 


UNCLASSirUD***FILE  NANLlCSTARMRiXQT  ELEMENT  NAME  jWIMP/L0SS-RATES«>*4UNCLAS$IF1 


llSPRKPT  PRlNT»/B2P«?INT 
2ISUSF  6b.  ,SCCRET*6?.«RFP88. 

3i«iASG,A  86/  /  . 

4tSASp,T  7. 

S  lSnA  T »  ,  1  7. 

bl&AOO,D  88.WIMP/XX-1 
TtSAO D.P  86.‘/TMP/XX-2 
StSAOf.D  88.WIMP/XX-J 
VliAUr.C  86.UIMP/XX-H 
ldta*0f'«0  86.WIMP/XX-.i 
Us3AOr,D  88.WIMP/XX-6 
12»iA0r,D  88.VIMP/XX-/ 

UJiAOC.O  E8.WIMP/XX-b 
lmSAor.o  fie.wiMP/xx-/ 

ISsiAOD.C  88.WIMP/XX-I.D 
lbt.SEun 

17siwSr,N  THE  AbOWC  ELEMENTS  ARE  THE  SEPARATE  OUTPUTS  FROM 
lbSiMSP.N  EACH  RUN  Of  THE  WIMP  FOR  A  SINGLE  POSTURE  lit.  ATTACK,  DEF- 
19t8MSr,N  ENSE  INTENSE,  DELAY  OP  DEFENSE  LIGHT!.  THE  "XX" 

20:8MSF,N  PORTION  OF  THE  ELEMENT  NAME  MUST  PE  CHANGED  TO  REFLECT 
?l:iMSF,N  THE  CORRECT  POSTURE  TIE.  AT,  01,  OE  wR  DL i .  THE  NUMBER  OF 
22 :  SMSO  ,N  CLEMENT  F  IlCS  hay  ALSO  CHANCE  OEPENATNG  ON  THE 

23:o)HSr,N  number  of  times  the  wlHP  IS  executed  for  any  one 

24tiMSC»N  POSTURE. 

2S :8ASC , T  9. 

26  S  3DA T A  ,  I  9. 

27t8AOr,0  88. WIMP -XX/ TOTAL “CAT 

28  tQENF 

29S(iMSr,N  THE  ABOVE  ELEMENT  "WIMP /TOT AL-CA T-XX"  CONTAINS  THE  88 
3u!8MSr.,N  DATA  FROM  UTILITY  62W  IMP.  W  IMP /TO  T  AL-CA  T  .  THIS  UTILITY  IS 
J1:3MSG,N  EXECUTED  ONCE  FOR  EACH  POSTURE.  THE  "XX"  PORTION  OF  ThE 
32:dMSG,N  ELEMENT  NAhE  MUST  BE  CHANGED  TO  REFLECT  THE  APPROPPIAU 
33l»MSr,N  POSTURE  ITE.  AT,  DI,  PE  OR  DL I . 

3R:i.ASr-,T  8. 

35  sSASO  ,T  1C. 

36!iASr,,T  11. 

37s«ASP,A  82WIMP. 

36  S  3X0  T  62WI HP. wIMP/LUSS -PATES 
39.  1 8  R  1G 

4C:3MS0,N  THE  ABOVE  NUMBERS  REPRESENT  THE  NUMBER  OF  BL.'E  UNITS  IN 
*ltdM$P,N  THE  POSTURc  *S  ARRAY  ANC  THE  NUMBER  OF  TIMES  THE  NTMP 
42:iM$G,N  WAS  EXECUTED  FOR  THIS  POSTURE.  THE  FORMAT  FOR  THIS 
*3:a«Sr,N  ENTRY  IS  ColUMN  l  =  BLANK,  COLUMNS  2-4  =  BLUE  UNIT  COUNT, 
44!ttMSF,N  COLUMN  i  =  BLANK,  COLUMNS  6-7  =  NUMBER  OF  TIMES  THE  WlhP 
4SS3MSO.N  WAS  EXECUTtO  FOR  THE  POSTUURE. 


88  «WIMP-XX/ TOTAL-CAT 

THE  ABOVE  ELEMENT  "WIMP /TOT AL-CA T-XX"  CONTAINS  THE  88 
DATA  FROM  UTILITY  62WIMP»ttIMp /TOTAL-CAT .  THIS  UTILITY  I! 
EXECUTED  ONCE  FOR  EACH  POSTURE.  THE  "XX"  PORTION  OF  ThE 
ELEMENT  NAhE  MUST  BE  CHANGED  TO  REFLECT  THE  APPROPPIATE 
POSTURE  ITE.  AT,  SI,  PE  OR  DL I . 


4C:3MS0,*I 

41tdM$G,N 

42:iM$o,N 

*3:i«sr,N 

44:<,MSP,N 

4SS3MS«,N 


46  S  3E0  6 

4  7 ; LNP 
48SEX1T 

4 9 ! 8MSP ,N  THE  ABOVE  ELC'ENT  "W IMP /RATES -XX"  WILL  CONTAIN  THE 
5u:«iM$r,N  OUTPUT  DATA  FROM  THIS  UTILITY.  THE  "XX"  PORTION  OF 
51:3MS0,N  ELEMENT  NAhE  MUST  BE  CHANGE  TO  REFLECT  TrtE  APPROPRIATE 

52S»MSC,N  POSTURE  lit.  AT,  DI,  Of  uP  PEI. 

S3rSED , R  68.KIMP-XX/TUTAU-CAT 

54:LNP 

FSsEXIT 

Sb:8MSP,N  THE  ABOVE  ELE"CNT  "WI*’P -X  X/ TOT  AL -C  A  T"  CONTAINS  THF 

57 ! i"Sr ,N  TOTAL  HIE  IN  EACH  EQUIPMENT  VULNERABILITY  CATEuORY  FOR 

SBtSMSr.N  ENTIRE  POSTURE’S  ARRAY.  THE  “XX"  PORTION  OF  THC 
59tiMSr-,N  ELEMENT  NArtE  MUST  BE  CHANGE  TO  REFLECT  THE  APPROPRJ ATF 

6G:dMsr,N  POSTURE  lit..  AT,  Oi,  DE  OR  Del. 

6USF0  ll.,fl«.WIMP/EOSS-XX 
62  5LNP 
6 3* CXI  T 

64tLMS0,N  THE  ABOVE  LLEMENT  "WIMP /E055-XXM  CONTAINS  THE 

65  fiM  SC-  ,N  TOTAL  MIE  LOST  IN  EACH  FQUIPMENT  VULNF  R  AbIL  I T  Y  CATEGORY 

66»3HS'P,N'  FOR  THE  EMT IRC  POSTURE’S  ARRAY.  THE  "XX"  PORTION  OF  THE 
67s3MSr,N  ELEMFI.T  NArtE  MUST  bE  CHANGE  TO  REFLECT  THE  APPROPRIATE 

66  *  8MSG  ,N  POSTURE  ITE.  AT,  DI,  OE  OR  Ol » . 

69 tiFRFE  7.  Figure  111,4.2 

70  1 3FR  c  E  b.  ° 

71«;FRRF  9. 

72  t uFRpE  10. 

73  1 8F3FE  11. 


6.,b8.WlHP/PAIES-XX 


THE  ABOVE  LLE"CNT  "WI”P -X X/ TOT AL -C A T"  CONTAINS  THE 
TOTAL  HIE  IN  EACH  EQUIPMENT  VUL’ERAB  XL  I  TV  CATEGORY  FOR 
ENTIRE  POSTURE’S  ARRAY.  THE  “XX"  PORTION  OF  THC 
ELEMENT  NArtE  MUST  BE  CHANGE  TO  REFLECT  THE  APPROPRJ  ATF 
POSTURE  lit..  AT,  Oi,  DE  OR  Del. 
ll.,8A.WIMP/L0SS-XX 


THE  ABOVE  LLEMEN’  "WI HP /LOSS-XXM  CONTAINS  THE 
TOTAL  MIE  LOST  IN  EACH  FQUIPMENT  VULNERABILITY  CATEGORY 
FOR  THE  EMT IRC  POSTURE’S  ARRAY.  THE  "XX"  PORTION  OF  THE 
ELEMFI.T  NArtE  MUST  bE  CHANGE  TO  REFLECT  THE  APPROPRIATE 
POSTURE  ITE.  AT,  DI,  OE  OR  Dl » . 

Figure  111,4.2 


72  t uFRpE  10. 

73  1 8F3FE  11. 

74  tiFREE  88. 
TSliBRKPT  PRINTS 
76 13E0 , R  82PR1NT. 


t'MCiAssir ire**»c**Ki»iE  jr  output  u»J*  or  omm  wtPP/TOC-i‘i***uKCi»*,simn 
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Figure  III.4.3 
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i NCt*ssiHf:o***t*»H‘*tr  «r  the  output  u«ti  or  utility  uihp/tot«l-c«t*p*uncla&sifi 
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UMCLAiSir  IFO***EX*M»»LC  uF  MIHP/LOiS-PATE 5  OUTPUT  flit  WlHP/LOSS-XX 
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UNriA&Sir 1FU«**C)UHPIC  or  ui*p/io$s-bates  output  pile  wihp/rates-xv 
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Figure  III.4.7 


i'KCLAs$irito*»*Mir  na'hsjvihp  element  namt  iwiHPFLOss-RATES***UNCL*ssiriro 


1 

j i this  utility  program  is 

ItRlTIf N  FORTRAN  V. 

N 

PlCA«**RPPOGRAMMCR 

DATE 

INITIALS 

7 !€••••• 

•tC«****CPT  SCOTT  E  CANTLON 

IFCBI 1 

SEC 

lJlt*****PURPOSE  or  TrlE  PROGRAMl. 

IJlCMM* 

UTILITY  IS  DESIGNEO  TO  CONSOLIDATE  THE  REMAINING 
I SiC***m*OUANT I  TIE  S  IN  EACH  SLUE  UNIT'S  TOE  1ST  ARTILLERY  VUL- 
UtC*****NCRABUlTY  CATEGORY )  TOR  SEVERAL  SEPARATE  RUNS  Of  THE 
UtC*****WlMP  *NC  prpuOE  A  AVERAGE  LOSS  RATE  IV  ARTILLERY 
lltCMtMVULNERASlLlTV  CATEGORY  TOR  THE  ENTIRE  ARRAYED  POSTURE. 
IVIC««*«« 

JO  I C*** ***fi"*R  **•**••••***•••*••  ••*••••••••**•*••*•••*••* 

?2:C*****VAR1ARlC  dictionary 
?3»C*R*** VARIABLE  NAPE 

JM IC»**»* 

JSlCM***NBLUE 
?fc  tC**RR* 

?7 | CMRMNRUN 
JtlC***** 

JTJCMAAA 
*OtC«*«*»OVIl) 

TUC***** 

32tC***** 

!S«C****R 
3ittC*****TOTYI  It 
JSlC***** 

HtC»***A 
3J tC*****ACTYI 1  I 
ISlC***** 

79  tC***«* 

«0:C***** 

*llC*****AQLCSStl I 
M«JlC**R** 

RJtC***** 

AN jC***»* 

RStC*****NAUTHII> 

I C***R* 

<7|CM»A* 

••tC*««**ALO$S 
•9tC***** 

EOtC***** 

«I  jC*R***TIUE  U-31 


flic**»*« 

f StC************************************************************** 

. . . 

SSi  DIMENSION  OTY<£?l,AQTV(?3).TCTVIZ3),AOLOSSt J3I.NAUTHI J3)« 

Stt  YTITLE It  73 I. TITLE  2 1 73 1. TITLE  3 1 ?3 1 

STlCRRRRRA*************  «<*••••••**•*•***•*••••****••••**#••*••♦♦•• 

«H  lC*****»i'AOP  r  IN  The  YULN  CAT  TITLES. 

«9 1 C *•••**••*  <•>  ***•••*••**•*•••*•••*••****•**•*•**•***•****••**** 

Mil  7C 

All  RCaO  I  iJ.U,*  xENnrlSITITLritJItTITLCJI  Jl  .TITLESUI 

SZtlJOO  FORMAT  <  Ab . A  t  .AS) 

AS t  GO  TO  7C 

M t (**•***•••***••••*••**••»*•»•••••**••****•*»•••••*•***•••****»* 

A5tC*****REA01NG  IN  TmC  NUMBER  or  BLUE  UNITS  IN  THE  ARRAY 


AtlC*****AND  THE  NUHBfcR  0F  TIMES  THE  wlHP  WAS  EXECUTED. 

Figure  III.  4. 8 
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OCriNITION 

NUMBER  CP  BLUE  UNITS  IN  THE  APR  AY 

NUMBER  OP  TIMES  THE  MlMP  WAS  E*rCUTEO 
TOR  THE  POSTURE. 

ouantity  or  items  remaining  in  a  unit's 

ARTY  VULNERABILITY  CATEGORIES  AFTER 

execution  or  the  wimp. 

total  quantity  of  items  remaining  in  the 

ARRAY  BY  ARTY  VULNERABILITY  CATEGORY. 

average  ouantity  or  items  remaining  in  the 

ARRAY  BY  ARTY  VULNERABILITY  CATEGORY  TOR 
SEVERAL  RUNS  OF  T'lfc  »IPP. 

average  quantity  or  items  loss  in  cach 

C A TENGO°Y  FOR  ALL  RUNS  OF  THE  olMR  roR 
A  POSTURE. 

TOTAL  AUTHORI7ED  OUANTITY  FOR  EACH  CATEGORY 
FOR  THE  ENTIRE  ARRAY. 

AVERAGE  PERCENT  OF  LOSS  FOR  CACH  CATEGORY 
FOR  THE  ENT  INC  ARRAY. 

vulnerability  CATEGORY  TITLES. 


w  r  a  o  t  • .soc.fholicinolue  ,m*un 
format  lUtiMitUi 


C»«.*»RtAD!NG  INTO  AN  ARRAY  THE  GUAM!  T V  Of  MENU  REMAINING 
C**«*«EACN  CATEGORY  F OR  EACH  UN IT . 

10  OC  £3  Usl.F'uLUC 

KF  A0lT,TJ0,r,«D  =  R8HQTYI  II  ,1=  1  *121 
TOO  FOHHATUTfT.n 

fit  AO  IT,  TO  l  .FnOSRGMCTYt  J»  ,j:iTt?SI 

toi  rcsNimirT.i,/! 


C**b  **  T  OT  AL 1  NO  UP  ALL  THE  REMAINING  ITEMS  FOR  EACH  CATEGORY 
C****.AKC  ALL  fiUNt  OF  THE 

C»* 

oo  is  .ijh  t'i 
TOTvUUIRTCTYtUJl.UTYIJJl 
15  CONTINUE 

20  CONTINUE 

GC  TO  13 


C  ****.■  CPMPU  T  tf.fi  THt  AVERAGE  CUAMTITY  REMAINING  IN  each  category 
C*»***F OR  THE  ENTIRE  ARRAY, 


vC  *,3 

AUTYlHMSTCTtUHI/NRUN 

CONTINUE 


C****»F  E  AOI NG  IN  T„C  TOTAL  AuTHEHUEu  3UANTITY  OF  ITEMS  IN 

c**»**l ach  caugory  for  the  entire  anray. 

oo 

fiFAOIR.VJO,*  .0:9RINAUTMIM**I 
TOO  FCRMf  T | IT  I 

tafilTE  I  10,ICroINAUTH|MM»  .TITLE  HHN!,TInr?tNM>  .TITLE  TIMM  I 
ICOC  FORMAT  UX.lU.SX.Ab.Ab.At  I 
NO  CONTINUE 

. . . 

C*****COMPuT ING  THE  AVERAGE  SUMMER  OF  ITEMS  LOSS  IN  EACH 
C*****CATEGOfY  ro*  THE  ENTIRE  apray. 

VV  CO  S3  LL - 1  ,?•> 

AOLOSSILL ISNAUTHILLI-ACTYILLI 

HRITElIl.lirglAOLOSSILLl.TlTL* I  ILL!  ,T ITLt ? I LLI , Tl TLESILL  1 
1130  FORMAT  I  U,Ma.2,*Y  .Ab.AN.Abl 
SO  CONTINUE 


C*** ••COMPUTING  THE  LOSS  RAU  AS  *  PERCENT  FUR  EACH  CATEGORY 
C*****AND  WRITING  uUT  ThE  RESULTS. 

C**************** *•*•♦•*••*•••**♦•*•* •*•**••*• *•*•***••***•** 

00  SC  NNsl ,?1 

1FINAUTHINM.LE.PIG0  TO  bl 
1FIA3L0SSINM .LE.CIGO  TO  A 1 

alossraolossinni/nauthinn  I 

WRITE  lb, SOP  INLOSS, TITLE  1 1 NN> , TI TlE I INN  I , T 1 TLE J INN » 

SCO  rORHATtF?.5,SX,Ab,Ab,AM 
GO  TO  bC 

bl  ALOSSrn.OOC 

•  RITE  IS, OCCIALOSS. TITLE'! INN), T1TCC2INNI, TITLES! NN I 
60  CONI 1  HUE 

STOP 
END 


Figure  III.  4. 8  (Cont) 
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CHAPTER  3 
UTILITY!  LEA/TAPE 


5.1  DESCRIPTION  OF  PROCESSING:  This  utility  program  performs  no 
computations)  the  program  Is  read  and  write  statements. 

5.1.1  PURPOSE/FUNCTlONt  The  purpose  of  this  utility  is  to  process  a 
magnetic  tape  supplied  by  the  Logistics  Evaluation  Agency  (LEA)  which  describes 
the  Major  Items  of  Equipment  (MIE)  being  used  in  the  current  study  as  to  the 
quantitiy  and  density  profiles  of  each  item  by  its  Line  Code  (LINCODE).  The 
utility  will  split  the  quantity  and  density  profiles  for  each  Line  Code  and  write 
them  into  separate  sequential  files)  one  for  quantity  profile  and  one  for  density 
profile.  These  files  will  be  used  as  input  to  the  utility  ITMID/TEMP. 

5.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  5.3.1.  The  general  logic  flow  is  pictured  in  the  flow 
chart,  FIGURE  1II.5.2.  The  source  code  can  be  seen  in  ’IGURE  III. 5. 3. 

5. 1.2.  A  INPUT  DATA  AND  DATA  BASE:  The  LEA/TAPE,  provided  by  the 
Logistics  Evaluation  Agency  (LEA),  is  the  only  input  required  by  this  utility.  The 
format  of  the  tape  is  depicted  in  Figure  III. 5.4. 

5.1.2. B  OUTPUT  DATA  AND  DATA  FILESt  -  The  utility  produces  two  mass 
storage  file^  outputs.  One  file  is  the  b£N Sit Y/ PROFILES  file.  This  file  describes 
each  Major  Item  of  Equipment  (MIE),  identified  by  its'  LINCODE,  its  density 
within  each  of  the  five  combat  zones,  for  each  of  the  seven  time  periods  being 
played.  Density  as  described  here  is  defined  as  the  percentage  of  the  available 
item  of  equipment  which  can  be  found  in  a  combat  zone  during  a  specific  time 
period.  In  all  cases,  the  percentages  for  an  item  during  a  time  period  must  sum  to 
100%.  Thus,  by  multiplying  the  quantity  of  the  item  available  for  a  given  time 
period  as  described  in  the  QUANTITY/PROFILES  file,  by  the  density  percentage 
for  a  combat  zone  for  that  time  period,  the  actual  number  of  these  items  in  this 
zone  can  be  determined. 

Figure  III.5.5  presents  a  file  layout  for  the  DENSITY/PROFILES  file  and  presents 
an  example  of  the  data  as  it  is  found  in  the  file.  As  can  be  seen  from  the  file 
layout  and  the  example,  there  will  be  five  records  for  each  MIE  in  the  file;  on 
record  for  each  combat  zone  of  the  battle  area.  Further,  within  each  record  there 
will  be  seven  occurrences  of  the  actual  density  percentage  of  this  item  found 
within  the  combat  zone;  one  for  each  of  the  seven  time  periods  of  the  exercise. 

The  second  mass  storage  file  produced  is  the  QUANTITY/PROFILES  file.  This  file 
denotes  for  each  MIE  as  identified  by  its  LINCODE.  The  quantity  of  this  item 
that  will  be  available  to  be  played  in  each  of  the  seven  time  periods  of  the  exer¬ 
cise.  As  can  be  seen  from  the  record  layout  in  the  data  example,  there  will  be  one 
record  for  each  MIE  and  seven  occurrences  of  its  quantity;  one  for  each  time 
period.  Figure  Hl.5.6  presents  an  example  of  the  data  that  can  be  found  in  the 
file. 
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5. 1 . 2.C  DATA  ELEMENT  DICTION  ARV» 


The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 

NAME  DEFINITION 

DEN  Density  Profiles.  This  is  an  array  of  7  members)  one 

member  tor  each  of  the  7  time  periods  of  the  study. 
Further,  there  wi  be  5  occurrences  of  this  array  for 
each  of  the  5  combat  zones  of  the  battle  area.  Each 
entry  in  the  array  will  denote  the  percentage  of  this 
line  item  found  in  a  specific  zone  during  a  specific 
time  period.  The  summation  of  percentages  for  a 
specific  zone  over  the  7  periods  must  equal  100%. 

LIN  Line  Code.  The  six  character  alphanumeric  code 

assigned  to  an  item  of  equipment  which  uniquely 
identifies  the  item. 

QUAN  Quantity  Profile.  This  is  a  7  member  array.  There 

will  be  one  occurrence  of  this  array  per  item.  Each 
entry  in  the  array  denotes  the  quantity  of  this  item 
authorized  for  each  of  the  7  time  periods  of  the  study. 

I,  3,  K  and  L  These  variables  are  used  as  subscripts  in  the 

program. 


5.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  with  the 
UNIVAC  Executive  -  8  operating  system. 

5.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  FORTRAN  IV 
compiler  and  UNIVAC  1 100/82  system  facilities. 

5.2.2  I/O  DEVICES:  This  utility  will  use  one  tape  drive  for  its1  input  file.  Its 
output  will  be  written  to  disk.  Refrr  to  Volume  1  for  the  program  runstream. 

5.3  MAINTENANCE  PROCEDURES:  The  length  of  this  program  (16  lines  of 
code)  has  not  warranted  explicit  maintenance  procedures. 

5.3.1  PROGRAMMING  CONVENTIONS:  Standard  FORTRAN  conventions. 

5.3.2  INTERNAL  ERROR  ROUTINES;  None  are  incorporated  in  this  utility 
program. 
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STRUCTURE 


Figure  III.  5.1 


UNCLASSIFIED»*»FILE  NAME:82XQT  ELEMENT  NAMC:LEA/TAPF*«» UN CLASSIFIED 


i:C.*...THIS  UTILITY  IS  DESIGNED  TO  TAKE  THE  LEA  DATA  TAPE  WITH 
2:C«**«.THE  LIN  CODE  OENSITY  AND  QUANTITY  PROFILES  FOR  THE  CURRENT 
3:C»»«»«WARF  STUDY  AND  PLACE  THEM  IN  SEPARATE  ELEMENTS  OF  A 

4  :C«» •••PROGRAM  FILE  USED  TO  ST CRE  DATA  FOR  FURTHER  MANIPULATE  AND 

5  :C*»  •••RECORD. 

6 :c*« ••*•••**••*•**•»•••••••*•• ••••••**•»*••*•*••••••*•*»••••*••*• 

7 :c»* •*•****•**•**••••••*•••••• •*•*•*•••••••»•••••••»*»••••••••••• 

B  :C»« ♦••VARIABLE  DICTIONARY 
9:C»»**»VARIABLE  NAME  DEFINITION 

10:C***«»LIN  LIN  c  COE 

Ii:c»*-*»QUAN(I1  QUANT  I f Y  PROFILES 

12  JC •• •• «D  EN  <1  )  OENSITY  PROFILES 

ix:c»* •«•*•**•*•*».»••*••*••.•.•••••.»*•»».*...*•..*•**••••••*•*... 

14 :c*» ***•••*••• 

15:  DIMENSION  DEN  1 7  I 

If:  INTEGER  QUAN  (71 

17:  REAL  LIN 

18:iQ  READ(7.700.END=20ILIN»( GUAN ( I J • I -1 . 7 ) 

19:700  F0RMAT(1X.A6.7(2X.I7)  ) 

20:  IF(LIN. EQ.999999IG0  TO  20 

21 :  WRITE (8  .800  I LIN t ( QUAN(J  ).J=1.7  I 

22:800  FORMAT< 1X.A6.10X.7I9) 

23:  GO  TO  10 

24 :Z0  READ! 7. 701 . EN0=99 ILIN . ( DEN ( K I « K= 1 . 7 » 

25:701  FORHATt lX.A6.7l2X.F5.il  I 
26:  I F ( LI N. EQ .9  99  99  9 1  GO  TO  99 

27:  WRITE  (9.900ILIN.(0EN(U  .L=1.7> 

281900  FORMAT( 1X.A6.11X.TF5.1I 
29:  GO  TO  20 

30^99  STOP 

31  :  E  NO 


Figure  III.  5. 3 
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UN  CL  AS  SI  FI  ED  »•  »C  X AMPLE  OF  THE  LlNC COE/LIST  OAT  A  F1LE*» *UNCLASSIF 

i:  AO  31 98  AK  VEH  M218  CM  EO  PI  A 
2!  A14752  ADAP  TEST  CAMERA  LM178 
3:  A2  24  96  AIMING  CIRCLE  M2  W/E 
A!  *2  3770  AIR  CONO  FL/VNOW  BOOOB 
5!  A2  38  28  AIR  COHO  F/WA  9000  B  TU 
e:  A2  4044  AIR  CONO  13000  BTU 
7:  *24318  AIR  CONO  18000  BTU 
s:  *24455  AIR  CONO  FM  AIR-COOL 
9!  A24463  AIR  CONO  F/WA  18000  BT 
in:  *24592  AIR  COND  19000  8TU 
li:  *2  47  63  AIR  CONO  F/WA  36000B TUU 
12:  424900  AIR  CONO  3S000  BTU 
13:  A271S9  AIR  TRF  C  F  AN/TSQ-97 
14:  *32444  ALARM  CML  AG  T  Mil 

15:  A3  2508  ALARM  CML  AGT  M12 

16:  A3  25  64  ALARM  CML  AGT  AUTO 

17:  A3  2568  ALARM  CML  AGT  AUTO 

in:  A3 2570  alarm  CML  AGT  AUTO 

19:  A3  44  57  ALGNT  FX  MX-8409/A AS  24 
20:  *4  1666  RDR  SET  AN/TPQ-37  LP 
2i:  A55293  AN  *L  CMC  B  AN/ASM-137 
221  A5S300  ANAL  CHG  B  AN/ASM-490 
23:  AS  5304  ANAL  CHG  B  AN/GSM-261 
24  :  *5  5704  ANAL  FLT  LN  AN/A.SM-8  0 
25:  AS 62 35  ANAL  SET  LS-89A 
261  A56243  ANAL  SET  ENG  PTBL  S  S 
27:  A56800  ANAL  SPTCM  AN/UPM-58 
28:  AS  69  37  ANAL  SPTCM  AN/UPM-84 
29:  A58033  ANAL  SPTCM  TS-723/U 
30 :  A7  7877  ANTENNA  GRP  AN/GRA-4 
31 :  A7  3014  ANTENNA  GRP  AN/GRA-12 
32:  A731S1  ANTENNA  GRP  AN/GRA-SO 
33:  A99943  AYTENUTR  VAR  CN-1035/G 
34:  PO 17  56  AUGER  EARTH  SM  4  A 
35:  PI  17  95  BOTTLE  CLEANG  AN/TAM-4 
365  618648  BAKERY  PLT  M-1945LP 
37:  83  02  38  BARGE  ASST  SET  5X12 
38:  B3  09  23  BARGE  OE  CK  CGO  NP  OC 
39:  B4  36  63  BATH  U  F  T9  L  GEO  LP 
40:  84  55 97  BTRY  CHGR  PP728G*  G/ U 
41 :  P51098  BEACON  SET  A  N/TRN-30  VI 
42:  85  1099  BEACON  SET  A  N/TRN-30  V2 
43:  R63711  BIN  STO  AG GR  PTBL  GO  T 
44:  86  7423  BINOCULAR  EL  AN/PAS- 5 
45:  66  74  92  BINOCULAR  INFRARED 
46:  68  3582  BOAT  BRCG  ERECT  GO  2  7 
47:  83  3856  BOAT  L*NO  INFLT  15  MAN 
48:  884404  BOAT  RECON  PNEU  3-MAN 
49:  Cl 84 81  BREAKER  PAV-ORILL 
50:  C20414  BRIDGE  ARKO  VEH 
51 :  C2  2058  BRIDGE  ERECT  SET  FIX 
52:  C22126  BRIDGE  ERECT  SET  FB  UK 
53:  C2  2S11  BRIDGE  FXO  HI-WAY  ALUM 
54:  C23017  BRIDGE  FXO  HI-WAY 
S5:  .C2  5757  BRIDGE  FLTG  RAFT  LT 
56:  C25031  BRIDGE  EREC  SET 
57:  C36120  8LUZR  EM  F/MGO  SER  T KS 


Figure  III.5.4 
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UNILAS5I6irP***tXA'<PL£  nrN!ITY/PRC  r  ILC  OUTPUT  DAT*  PPOK  THT  LPA/T»Pr  UTILITY***!' 


1 

At.  3198 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

n 

AU  7198 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

3 

AO  7198 

.0 

.0 

.0 

.0 

.0 

.0 

.9 

A 

Alt  71 98 

f0.5 

60.5 

60.5 

74.6 

74.6 

74.6 

74. E 

t 

AO  31 98 

’9.5 

39.5 

39.5 

25. 4 

>5.4 

25.4 

25.4 

c 

*14752 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

7 

A14752 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

e 

A14752 

36.7 

36.7 

36.7 

24.3 

24.3 

24.3 

34.3 

o 

A147S2 

63. 3 

6  3.3 

63.3 

7f  .7 

75.7 

75.7 

65.7 

10 

*14752 

.0 

.0 

.0 

.U 

.0 

.0 

.0 

11 

A2  24  96 

4.9 

6.r 

1.6 

3.7 

3.7 

3.7 

3.7 

12 

A2  24  96 

13.4 

16.  f 

20.4 

20.3 

2U.8 

2U.9 

20.8 

13 

A2  24  96 

so.n 

75.“ 

66.9 

64.5 

64.5 

64.5 

64.5 

14 

A2  24  96 

1.5 

11.5 

11.1 

21.0 

21.6 

21.6 

21.6 

If. 

A3  24  96 

.0 

.C 

.0 

.0 

.0 

.0 

.0 

16 

*2  7770 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

17 

A2.77T0 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

ie 

*2  .7770 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

19 

*2  3770 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

20 

A2 3770 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

21 

A2  7828 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

2? 

A2  36  28 

10. 0 

16.0 

10.  0 

10.0 

10.0 

10.0 

10.0 

23 

A2  7628 

25.0 

23.2 

26.2 

2U.B 

30.8 

30.8 

30.8 

24 

A2  38  28 

10.1 

18.0 

16.4 

17.6 

17.6 

17. E 

17.6 

25 

A2  78  28 

54.9 

48.9 

45. 4 

41.5 

41.6 

41.  * 

41.5 

26 

*2  4044 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

27 

A?  40  44 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

29 

42  46  44 

70.0‘ 

20.0 

20.0 

.0 

.0 

.0 

.0 

29 

A2  4044 

36.2 

36.2 

36.2 

50.0 

50.0 

50.0 

50.0 

Ji¬ 

A? 4044 

43.3 

43.3 

43.8 

50.1! 

51). 0 

50.0 

50.  0 

ll 

A24318 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

32 

A24318 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

37 

A?  43 18 

.0 

.C 

.0 

.0 

.0 

.0 

.0 

74 

A?  43 18 

fo.n 

50.0 

CD.  Cl 

70. C 

70. 0 

61*  •  0 

80.0 

35 

A24318 

51'. 0 

50.  r 

40.0 

30.0 

3U.0 

20.0 

20.0 

36 

A2  4«  55 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

37 

A2  44  55 

10.0 

10.  c 

in.o 

m.c 

20.0 

20.0 

30.0 

39 

A2  44  55 

70.0 

30.0 

30.0 

4fl  .0 

40.0 

40.0 

50. 0 

39 

A2  44  55 

eci.o 

60.6 

co.u 

5U.U 

40. 0 

4U.0 

20.0 

40 

A2  44  55 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

41 

A?  44  63 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

42 

A2  44  63 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

4.7 

A2  44  63 

40.5 

35.4 

39.7 

45.7 

44.4 

44.9 

44.9 

44 

A2  44  63 

76.4 

42.9 

44.  9 

40.2 

40.7 

40.7 

40.7 

45 

A24463 

23.1 

21.7 

15.5 

14.2 

14.3 

14.3 

14  .3 

46 

A24692 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

47 

A?  45  92 

•n 

.0 

.0 

.0 

.0 

.0 

.0 

48 

A2  45  92 

r.o.f 

56. 8 

52.5 

55.4 

55.4 

55.4 

55.4 

49 

A24592 

42.7 

42.9 

41.  C 

44.3 

44.7 

44.3 

44.3 

sr- 

A24592 

6.9 

6*2 

5.9 

.3 

.3 

.7 

.3 

51 

A?  47  63 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

5? 

A24763 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

57 

A24763 

loi'.nmn.oi  uc.uitiG.oiiju.riou.nior.o 

54 

*24763 

.0 

.0 

.0 

.0 

.0 

.n 

.0 

55 

A24763 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

5r 

A24300 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

57 

A24306 

.0 

.0 

.0 

.0 

.□ 

.0 

.0 

Figure  HI.  5. 5 
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7 
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93 
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6 
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6 

7 

24 
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25 
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58 

58 

48 

84 

56 

27 
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83 

83 

48 

75 

86 

28 
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29 
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04 
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84 

84 

84 
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30 

30 

T1 
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T2 
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34  4 
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35 
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CHAPTER  6 


UTILITY  -  ITMID/TEMP 


6.1  DESCRIPTION  OF  PROCESSING}  This  program  performs  one 
computation}  the  balance  of  the  statements  are  read  and  write. 

6.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  merge 
together  data  from  the  QUANTITY/PROFILES  file  and  the  DENSITY/PROFILES 
created  by  the  previous  utility  LEA/TAPE  with  the  LINCODE/L1ST  file.  The 
LINCODE/LIST  file  is  created  manually  in  the  LINCODE/L1ST  element  of  the 
WARF  program  file  of  the  current  study,  using  as  its  source,  data  provided  by  the 
study's  sponsor.  The  utility  reads  in  the  LINCODE  and  the  nomenclature  from  the 
LINCODE/LIST  file  and  the  corresponding  7-period  quantities  from  the  QUAN¬ 
TITY/PROFILE  file  and  the  first  7  time  period  density  figures  from  the  DENS¬ 
ITY/PROFILE  file  and  immediately  writes  out  this  data  onto  the  ITMID/TEMP 
file. 

The  utility  does  not  check  to  ensure  that  the  LINCODE  on  the  LINCODE/LIST 
corresponds  to  the  LINCODE  on  the  Quantity  Profile  and  Density  Profile  files. 
Therefore,  it  assumes  that  all  files  are  sorted  on  LINCODE  and  all  files  will  have 
matching  LINCODES. 

6.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  III. 6. 1.  The  general  logic  flow  within  the  utility  is 
displayed  in  the  flow  chart  in  FIGURE  III.6.2.  A  copy  of  the  source  code  is  found 
in  FIGURE  III.6.3. 

6. 1.2.  A  INPUT  DATA  AND  DATA  BASE;  The  utility  will  use  these  files  stored 
on  mass  storage  devices  as  input;  DENSITY/PROFILE,  QUANTITY/PROFILE  and 
the  LINCODE/LIST  files.  Figure  111.6.4  gives  the  file  layout  and  examples  of  the 
data  for  the  DENSITY/PROFILES  file.  Figures  III.6.5  does  the  same  for  the 
QUANTITY/PROFILES  file  and  IH.6.6  for  the  LINCODE/LIST  file. 

6.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  This  utility  produces  one  output 
file;  the  ITMID/TEMP  file  on  mass  storage.  This  file  is  a  multi-record  file.  The 
header  or  identification  record  identifies  the  item  being  described  by  it  LINCODE 
and  provides  its  nomenclature.  The  second  record  provides  seven  quantity 
occurrences  for  this  item;  one  for  each  of  the  time  periods  in  the  exercise.  The 
last  record  type  will  occur  seven  times;  once  for  each  of  the  combat  zones  within 
the  battlefield.  Within  each  of  these  seven  records  there  will  be  five  occurrences 
of  the  density  distribution  for  this  item  once  for  each  of  the  zones  within  the 
battlefield.  As  in  the  DENSITY/PROFILE  file  these  densities  within  zones  are 
percemages  of  the  total  equipment  available  for  distribution  during  a  time 
period.  Therefore,  the  summation  over  each  of  the  five  combat  zones  for  each 
time  period  should  equal  100%  (rounding  may  produce  imprecise  values). 

Figure  III.6.7  gives  an  example  of  the  ITMID/TEMP  output  data  as  it  can  be  found 
in  the  file. 
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6.1.2.C  DATA  ELEMENT  DICTION  ARYt 

The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 

DEFINITION 


Line  Code.  The  6  character  alphanumeric  code 
assigned  to  an  item  of  equipment  which  uniquely 
identifies  the  item. 

A  30  character  alphanumeric  field  which  provides  a 
description  of  the  item.  The  program  in  constructing 
this  variable  uses  a  one-dimension  array  of  5  members, 
each  member  6  characters  in  length.  This  data  wiM  be 
supplied  from  the  LINCODE/LIST  file. 

Quantity  Profile.  This  is  a  7  member  array.  Each 
entry  in  this  array  for  an  item  will  denote  the  quantity 
of  this  item  authorized  for  a  specific  time  period  of 
the  study. 

Density  Profile.  A  two-dimension  array.  The  first 
dimension  identifies  each  of  the  5  combat  zones  in  the 
battle  area.  The  second  identifies  each  of  the  7  time 
periods  of  the  study.  Each  entry  in  this  array,  as  it  is 
read  in,  specific  time  period.  However,  before  writing 
this  array  out  to  be  the  ITMID/TEMP  file  the  utility 
divides  the  percentage  value  by  100  in  order  to  express 
the  densities  as  fractions  rather  than  percentages. 

3,  K,  L,  M,  &  N  Inter  values  that  are  used  as  subscripts  in  arrays. 


6.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
UN1VAC  Executive-8  operating  system. 

6.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  FORTRAN  IV 
compiler  and  the  UNIVAC  U0o/82  system  facilities. 

6.2.2  I/O  DEVICES;  This  utility  will  use  input  files  resident  on  disk.  It's 
output  will  also  be  written  to  disk.  Refer  to  Volume  I  for  the  execution 
runstream. 

6.3  MAINTENANCE  PROCEDURES:  There  are  no  explicit  or  unique 

procedures  applied. 

6.3.1  PROGRAMMING  CONVENTIONS:  Standard  FORTRAN  conventions. 

6.3.2  INTERNAL  ERROR  ROUTINES:  There  are  no  explicit  error  handling 
procedures  written  into  this  utility. 


NAME 

LIN 

NOMEN 

QUAN 

DENS 
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UNCLASSTEIED»»*F  HE  NAMr:i2X0T  EL  FMfNT  NA«*r  :XTMI0/TPHP«**UNCLASSIFIED 


x:c*****this  utility  program  is  designed  to  wrRor  data  from 

•>:c he  density  profiles  file  and  quantity  profiles  Fltr  CREATED 

S:C»*»**BY  THE  UTILITY  PROGRAM  "MXQT  .LF  A/T  APF»  AND  THE  WARE  STUDY’S 

a:c*«»«»lin  code  list  file,  the  lxn  ceor  list  file  is  created 
s:c««...froh  THE  °ape f  copy  list  PRCVTt'C  by  THE  -TU5Y  SPONSOR.  this 

. . is  nc  rf.  ally  scne  RY  HAVIN'*  THE  LIST  TYPE*  into  PuNCHEAPD  FORM  AND 

7  :C*»  •  »  »SUtNI  TT  CD  At  A  JO 6  PLACIN'?  IT  TNTP  THE  ELFMtNT  ’LINCC^E /LTS  T«  CF 

#:r.*.*.THr  warf  prccsap  file  f cr  the  current  study.  this  utilitt  results  in 

® !C ♦*  **  «T  HF  CREATION  OF  A  TEMPO PAPY  ITMID  FILE  THAT  W’LL  BE  PURTHER  REFINFD 
in:r»».*»bY  THE  UTILITY  ’BIXOT .T YMID/REC- A«  AND  PRODUCE  THF  FINAL 
IX  JC»«  *•  »ITKtO  FILE  TO  CE  USEO  BY  ELCON. 

1?  :c*»  *•***»»»••*»»»*•*•»»*»*•*»»»»** 

‘VARIABLE  NAME  DICTTCNARY 
X4  tC  «V  ARIA  BL  E  NAHF  OEFXNITJON 

LIN  CODE  OBTAINED  FROM  THE  UARF  DATA  FILE. 

IF  :C»***NOHCN  NOMENCLATURE  FOR  A  LIN  OBTAINED  FROM  THE  WARF  DATA  FILE. 

XT  JC *• *QUAN  QUANITY  BY  LIN  FOR  EACH  TIME  PERIOD  09TAINFD  FROM 

ou an tity/propile  data  file. 

ib:c»«***oens  dcnsity  for  a  lin  for  **ach  ione  BY  TIME  period  obtained 

2o:c*’**«  from  the  density/Rrofile  data  file. 

21 :c»* 

22:  DIMENSION  NCNENIS ) *OENS )S,7 ) 

2S:  INTEGER  CUANI7) 

2R:X00  FORMAT! IX. A6.2X.5AB) 

251X01  FORMAT! XX. A6. IX, 5A6I 

?g:200  FORMAT! 26X. 713) 

27520X  FORMAT) 717) 

28:300  FORMAT! 18X.7F5.X) 

29:3UX  FORMAT! 7F5. 2 ) 

3U:30  READ! 7. 10D. CNQ=99  )LIN  «) NOMENI J ) * J=1 »5 ) 

3i:  WRITE  ( 3  •  10 1 )  L  IN  . )  NO  ME  N)  J ) ,  J  =  1 »  5  I 

32:  READ! 8. 200* END: 39  ) t  GUAM (KI.M=1.7) 

33:  WRITE  !3.2ni)!CUANIK).K-l,7) 

34:  DO  XU  J=X.S 

35!  R  FAO!  B.  300.  END=99><  DENS tJ.K  ).M=1»7) 

36:  DO  ID  L=l*7 

37:  CENS! J«L)-0ENt!J«L)/100 

38  :xo  continue 

39:  no  20  Nsl.7 

40 :  WRITE  I3*30X)(0ENS)N.M). N=X»5) 

4i:20  CONTINUE 

42t  GO  TO  30 

4?:99  STOP 

44:  END 


Figure  III.6.3 
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30 

5? 

37 

306 

107 

107 

107 

Figure  III.  6. 5 


unclassified  »»»cxamplc  or  rnr  linccoe/list  data  F2Lt***uNCLAsstriED 


i: 

AO  3198 

25 

A14752 

35 

A2  24  96 

a: 

A2  3770 

s: 

A2  38  28 

65 

A2  4044 

T! 

A24318 

a: 

A?  44  55 

IS 

A2  4463 

10 : 

A2  4592 

115 

AX  4763 

12  5 

A2  4900 

13  5 

AZ71S9 

14  S 

A3  24  44 

is: 

A3  2508 

ic: 

A3  2564 

ITS 

A3  2568 

i« : 

A3  25  70 

is : 

AS  44  57 

20 : 

A4  1666 

21 5 

AS  5293 

22  S 

A5  5300 

23 : 

A5  5304 

2a  : 

A5  5704 

25 : 

A5623S 

26 : 

A56243 

2TS 

AS  68  00 

28: 

A5  69  37 

2i : 

A5  9033 

30 : 

A7  7877 

n: 

A7S014 

32 : 

A7  9151 

33 : 

AS  9343 

3a: 

BO  17  56 

35 : 

R11795 

3«: 

B1  86  48 

37: 

83  02  38 

38: 

83  09  23 

3i : 

84  36  63 

ao: 

B4  5597 

m: 

B5 1098 

42: 

95 1039 

A3: 

B6  3711 

aa  : 

B6  74  23 

45: 

B6  74  92 

4f. : 

B8  3582 

47: 

BB  38  56 

48 

R8  44  04 

4i: 

Cl  84  81 

so: 

C2U414 

51 

C2  2058 

52: 

C2  2126 

53: 

C2  2811 

54 

C2  3017 

55: 

C?  57  S7 

56 

C26031 

57: 

C3  6120 

AK  VEH  M218  OH  (0  '>  A 
ADAP  TTST  CA  HP  PA  LIT* 
AIMING  CIRCLE  HI  V/t 
AIR  COND  F  L/UNOW  (00  01 
AIR  CONO  F/WA  8000  ITU 
AIR  CONO  18000  ITU 
AIR  CONO  18000  ITU 
AIR  CONO  PR  AIR-COX 
AIR  CONO  F/WA  11000  BT 
AIR  CONO  18000  ITU 
AIR  COND  F/WA  36000BTUU 
AIR  CONO  SEOOO  ITU 
AIR  TRP  C  P  AN/TSO-I 7 
ALARM  CNL  ACT  Nil 
ALARM  CML  AOT  MIX 
ALARM  CML  ACT  AUTO 
ALARM  CML  AST  AUTO 
ALARM  CML  A6T  AUTO 
ALGMT  PX  MX-8409/AAS 24 
ROR  SET  AN/TPG-37  LP 
ANAL  CHG  B  AN/ ASM-13 7 
ANAL  CHG  8  AN/ ASM-490 
ANAL  CHG  B  A N/GSM-2G 1 
ANAL  FLT  LN  AN/ASM-80 
ANAL  SET  LS-89A 
ANAL  SET  ENG  PTBL  S  S 
ANAL  SPTCM  AN/UPM-SI 
ANAL  SPTCM  AN/UPM-84 
ANAL  SPTCM  TS-723/U 
ANTENNA  GRP  A'  *G RA-4 
ANTENNA  GRP  A...GRA-12 
ANTENNA  GRP  AN/GKA— 5  0 
ATTENUTR  VAR  CN-10JS/G 
AUGER  EARTH  SMAA 
BOTTLE  CLEANS  AN/TAH-4 
BAKERY  PLT  M-1945LP 
BARGE  ASSY  SET  5X12 
BARGE  DECK  CGO  NP  OC 
BATH  U  FTBL  GEO  LP 
BTRY  CHGR  PP72868  Q/U 
BEACON  SET  AN/TRN-30  VI 
BEACON  SET  AN/TRN-30V2 
BIN  STG  AGGR  PTBL  GO  T 
BINOCULAR  EL  AN/ PAS- 5 
BINOCULAR  INFRARED 
BOAT  BRDG  ERECT  GO  2  7 
BOAT  LAND  IN  PLT  15  HAN 
BOAT  RECON  PNEU  3-MAN 
BREAKER  PAV-ORILL 
BRIDGE  ARNO  VEH 
BRIDCF  ERECT  SET  FIX 
BRIDGE  ERCCT  SET  PB  UK 
BRIDGE  FXO  HI-UAY  ALUM 
BRIDGE  PXO  HI-VAY 
BRIDGE  FLTG  RAPT  LT 
BRIDGE  EREC  SET 
8LD2R  EM  F/MSO  SER  T MS 


Figure  IU.6.6 
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unclassified*., example  c  the  output  prom  utility  i7Min/TEMP...tr;cLA5SiritR 


1!  40  1198  AM  VEH  M2 1 8  CM  EQ  P1A 


54 

64 

44 

58 

?: 

.00  . 

00 

.00 

.80 

.20 

4 : 

.00  . 

00 

.00 

.80 

.20 

e  : 

.  00  . 

□  0 

.  00 

.80 

.20 

£ : 

.00  . 

on 

.no 

.80 

.20 

75 

.00  . 

00 

.  00 

.80 

.20 

e: 

.00  . 

00 

.00 

.80 

.20 

? : 

.DO  . 

no 

.00 

.75 

.25 

10 :  i 

4147  52 

AOAP 

TEST 

CAMERA  LM 17  8 

n : 

10 

16 

16 

17 

12: 

.00  . 

00 

.20 

.80 

.00 

n: 

.00  . 

,00 

.20 

.80 

.00 

14! 

.00  . 

,00 

.  20 

.80 

.00 

15: 

.00  . 

,00 

.15 

.85 

.00 

if: 

.00  . 

,00 

.15 

.85 

.00 

17: 

.00  . 

.no 

.  35 

.65 

.00 

is: 

.00  . 

,00 

.35 

.65 

.00 

is: 

A2  24  96 

AIMING  CIRCLE 

M2  W/E 

20: 

6615 

6  69  9 

8820 

8823 

21: 

.25  . 

.25 

.50 

.00 

.00 

22: 

.25 

.25 

.50 

.00 

.00 

23: 

.25 

.25 

.50 

.00 

.00 

24 : 

.  25 

.25 

.50 

.00 

.no 

25: 

.25 

.25 

.50 

.00 

.00 

26: 

.25 

.25 

.50 

.00 

.00 

27: 

.25 

.25 

.5n 

.00 

.00 

2e: 

A2  37  70 

AIR 

CONO 

FL/KNDV  6000  8 

29: 

0 

0 

0 

0 

30: 

.00 

.00 

.00 

.00 

.00 

31 : 

.00 

.00 

.on 

.00 

.00 

22: 

.00 

.00 

.on 

.00 

.00 

33: 

.00 

.00 

.00 

.00 

.no 

34: 

.00 

.00 

.00 

.00 

.00 

35: 

.00 

.00 

.00 

.0  0 

.00 

36: 

.00 

.00 

.  00 

.00 

.00 

37: 

A2  38  26 

AIR 

conc 

E/UA 

9000  8TU 

39: 

889 

993 

9  96 

998 

39: 

.00 

.00 

.25 

.25 

.50 

40: 

.00 

.00 

.25 

.25 

.50 

4i : 

.no 

.00 

.25 

.2  5 

.50 

42 : 

.uo 

.00 

•  — 

.25 

.  50 

43 : 

.00 

.00 

.25 

.25 

.50 

44 : 

.ou 

.00 

.25 

.25 

.50 

45: 

.00 

.00 

.25 

.25 

.50 

48 : 

A24084 

AIR 

CCND 

18000  PTU 

47: 

53 

53 

S3 

55 

49 : 

.00 

.00 

.on 

.50 

.50 

49: 

.  00 

.00 

.00 

.50 

.  50 

so : 

.00 

.00 

.00 

.50 

.50 

si: 

.00 

.00 

.on 

.50 

.50 

5?: 

.00 

.00 

.on 

.30 

.70 

53: 

.no 

.00 

.00 

.30 

•  7U 

54 : 

.00 

.UQ 

.on 

.30 

.70 

55: 

A2431E  A  IF 

;  CONE 

!  1800U  RTU 

so: 

15 

25 

42  57 

57: 

.00 

.00 

.25 

.7  5 

.00 

76 


17 


8823 


0 


99S 


55 


63 


8B 


17 


8823 


0 


998 


55 


83 


88 


17 


8978 


0 


99  8 


55 


97 


<; 

1 

1 

4 

-f 

4 
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CHAPTER  7 


UTILITY  -  ITMID/REC-A 

7.1  DESCRIPTION  OF  PROCESSING:  The  file  produced  by  this  utility 
program  is  the  final  ITMID  for  input  to  the  ELCON  program.  The  source  is 
approximately  54  lines  of  executable  code  that  consists  of  logic  tests  and  read  and 
write  statements.  There  are  no  computations  in  this  program. 

7.1.1  PURPOSE:  The  purpose  of  this  program  is  to  merge  data  from  the  first 
produced  ITMID/TEMP  element  with  data  from  the  aged  ITMID/FINAL  element 
which  was  produced  and  used  in  the  previous  study.  The  element  should  still  be 
cataloged  under  the  previous  study's  file.  The  result  of  this  merging  will  be  the 
ITMID/FINAL  element  of  the  current  study. 

The  ITMID/FINAL  element  is  composed  of  3  record  types: 

o  The  first  record  type  is  the  Master  Record.  It  contains  information 
which  describes  the  line  item  as  a  whole  such  as  its  name,  vulnerability 
class,  and  supply  levels. 

o  The  second  record  type  denotes  the  quantity  of  this  item  that  will  be 
available  for  each  of  the  seven  time  periods  being  played  in  the  study. 

o  The  third  record  type  describes  density  profile  of  this  item  in  each  of 
five  zones  or  areas  of  the  battlefield.  There  will  be  seven  occurrences 
of  this  record  for  each  occurrence  of  the  Master  Record. 

This  current  program  concentrates  on  the  Master  Record.  To  the  new  ITMID/- 
FINAL  element  the  program  will  copy  all  the  data  of  the  new  ITMID/TEMP  ele¬ 
ment  and  only  columns  40-54  of  the  previous  study's  ITMID/FINAL  element.  If  a 
new  ITMID/TEMP  Line  Item  cannot  match  an  existing  line  item  in  the  previous 
ITMID/FINAL,  columns  40-54  are  blank  in  the  new  ITMID/FINAL.  The  line  item  is 
written  out  to  another  element  "MISSED/ITMID-CODES".  Study  analysts,  using 
this  can  then  identify  those  items  which  need  attention  on  the  new  ITMID/FINAL 
element  and  manually  add  in  the  required  data. 

If  line  items  on  the  previous  ITMID/FINAL  have  no  corresponding  items  on  the 
ITMID/TEMP,  no  records  will  be  copied. 

The  program  works  using  the  following  assumptions: 

All  elements  are  sorted  in  ascending  order  using  LINCODE. 

For  each  Master  Record  there  will  be  one  corresponding  QUANTITY  Record 
and  7  corresponding  DENSITY/PROFILE  Records. 

7.1.2  PROGRAM  1NPUT/QUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  can  be  seen  in  FIGURE  III.7.1.  The  logic  flow  is  pictured  in  the  flow  chart 
in  FIGURE  III. 7. 2.  Finally  the  actual  source  code  can  be  examined  in  FIGURE 
I1I.7.3. 
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7. 1.2.  A  INPUT  DATA  AND  DATA  BASE:  The  utility  has  two  input  files.  One 
file  is  the  ITMID/TEMP  file  that  was  produced  by  the  previous  utility 
ITMID/TEMP.  The  other  file  is  the  ITMID/FINAL  file  which  was  produced  during 
tiie  last  study.  This  file  should  be  cataloged  as  an  element  under  the  previous 
study's  name. 

Figure  III. 7. 4  presents  the  record  layouts  and  an  e>.ample  of  data  within  the 
ITMID/TEMP  file.  Figure  III.7.5  demonstrates  the  same  for  the  ITMID/FINAL  file 
from  the  previous  study. 

7.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  This  utility  produces  one  primary 
element  as  output  and  one  secondary.  The  primary  product  of  this  utility  is  the 
ITMID/FINAL  element.  It  details  each  item  of  equipment  being  played  in  the 
scenario,  providing  quantity  and  density  statistics.  The  second  product  of  this 
utility  is  the  MISSED/ITMID-CODES  elements.  Entries  in  this  element  identify 
those  items  being  played  in  this  exercise  which  were  not  present  in  the  previous 
study.  As  a  result  columns  40-54  of  the  ITMID/FINAL  element  will  be  blank.  In 
order  for  the  study  to  be  completed  these  fields  must  be  normally  edited  and 
correct  data  supplied. 

Figure  III.7.5  presents  the  record  layouts  and  example  of  data  for  the 
ITMID/FINAL  file.  Figure  III.7.6  presents  the  record  layout  and  data  example  of 
the  MISSED/ITMID-CODES  file. 

7.1.2. C  DATA  ELEMENT  DICTIONARY: 

The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 
NAME  DEFINITION 

DENS1  A  one  dimensional,  5  member  array  used  to  read 

densities  from  the  old  ITMID/FINAL  file. 

DENS2  A  one  dimensional  array  of  5  members.  Each  member 

denotes  the  fraction  of  the  total  quantity  of  an  item 
which  is  allocated  to  a  combat  zone  during  a  specific 
time  period.  These  values  will  be  provided  by  the 
current  IMIT/TEMP  file  and  will  be  the  values  that  an 
written  out  to  the  new  ITMID/FINAL  file. 

LIN1  The  6  character  line  code  which  uniquely  identifies  the 

item  of  equipment  within  the  system.  This  particular 
data  element  also  identifies  the  record  being  read 
from  the  old  ITMID/FINAL  file. 

LIN2  Identifies  the  item  being  read  from  the  ITMID/TEMP 

file.  This  will  be  the  variable  written  out  to  the  new 
ITMID/FINAL  file. 


NOMEN 

QUANl 


QUAN2 


RECA 


SEQ 


I,  NN,  3,  33, 

II,  K,  KK, 

L,  M,  NN,  LL 


The  nomenclature  consits  of  30  characters  which  is 
organized  into  an  array  of  5  members,  6  characters 
each. 

An  array  of  7  members,  7  integers  each,  which 
contains  the  authorized  quantity  of  this  item  for  a 
specific  time  period.  This  variable  is  used  as  a  dummy 
in  which  to  place  the  quantities  coming  in  from  the  old 
ITMID/FINAL  file. 

This  variable  performs  the  same  function  as  the 
QUANl  variable  except  that  it  contains  data  from  the 
ITMID/TEMP  file.  This  will  be  the  quantity  data  which 
will  be  written  out  to  the  new  ITMID/FINAL  file. 

This  variable  will  contain  15  characters  of  alphanu¬ 
meric  data.  This  data  will  be  provided  by  the  old 
ITMID/FINAL  "A”  Record  for  this  item.  It  will  contain 
such  data  as:  historical  classification,  in-theater 
shipment  by  air. 

A  sequence  number  generated  by  the  utility  and 
assigned  to  the  "A"  record  of  this  item  of  equipment. 

Various  integers  used  as  subscripts  in  the  arrays  of  the 
utilities. 


7.2  OPERATING  ENVIRONMENT?  This  program  is  implemented  on  the 

UNIVAC  Executive-8  operating  system. 

7.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  FORTRAN  IV 
compiler  and  the  normal  UNIVAC  1100/82  system  facilities. 

7.2.2  I/O  DEVICES:  This  utility  will  use  input  and  output  files  that  reside  or 
are  written  to  disk.  Refer  to  Volume  I  for  the  program  execution  runstream. 

7.3  MAINTENANCE  PROCEDURES:  There  are  no  explicit  procedures 

developed. 


7.3.1  PROGRAMMING  CONVENTIONS:  This  utility  follows  no  unique 
conventions;  FORTRAN  programming  conventions  apply. 

7.2.2  INTERNAL  ERROR  ROUTINES:  There  are  no  explicit  error  handling 
routines  written  into  this  utility.  Provisions  have  been  taken,  however,  to  identify 
items  of  equipment  which  were  found  on  the  ITMID/TEMP  file  but  not  on  the 
previous  ITMID/FINAL  file.  These  items  are  written  out  to  the  MISSED/ITMID- 
CODES  file. 
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INITIALIZE 


Figure  1II.7.2  (Cont) 


iKCi*isinto***rut  namuavact  element  name uinjo/rec-aarrunclassipied 


•♦PURPOSE  or  PNOGHANj 

RR 

••THIS  UUU1Y  PROGRAM  IS  OtStGNEO  TO  tXTPACt  DATA  FROM  A  PREVIOUS 
••STUDY  *  S  ItHIO  0*1*  ruts  ON  At  CORO  *  COLUMNS  WD-SA  !*U  T*ILE 
♦Rw-b,  CAA-D-79-J  1 1 L CONI  *N0  *00 S  *  SEOUtNCC  NUMBER  IN  COLUMNS 
RRSS-SB  or  THE  NEW  STUDY’S  ITMID  riLE.  APOllIONALLY,  THE  PROGRAM 
••PRODUCES  *  SEPARATE  0*t*  ELEMENT  Mlt  TOR  WHICH  LIN  COOC 
ARM* 1 CHE  S  WE  PC  NOT  FOUND. 

RATHE  1TMI0  FILE  PROOUCEO  6 Y  THIS  UTILITY  WILL  BE  THE  r INAL 
RRIIMIO  FOR  INPUT  TO  THE  ELCON.  ONLY  MANUAL  EDIT  CHANGES  WILL 
•  RUE  MADE  TO  THE  IIM10  PILE  PROM  THIS  POINT  ON.  THE  UTILITY 
AAPROGRAH  "6?XoT. CATEGORIES**  SHOULD  BE  RUN  ON  THE  PINAL  1THID 
ARFILE.  THIS  WILL  CREAT  A  REPORT  ON  THE  CEP,  ARTILLERY  AND 
♦•HISTORICAL  CATEGOPIES/CLASSES  OP  EACH  LlN  CODE.  THE  REPORT 
•RIS  SENT  TO  THP  StUtt  SPONSOR  FOR  REVIEW  ANO  APPROVAL. 


♦•VARIABLE 
♦•VARIABLE 
••L INI 
••lin; 
♦•nchen 

RRLUANl 

•RwUANJ 

♦  •UtNM 

♦•lens; 

••sto 

•  •RE  c  a 

RR 


NAME  DICTIONARY 


OCt INI T ION 

LIN  COOC  PROM  OLD  IT*ID 
LIN  CODE  PROM  NPW  ITMID 
NOMPNCL* TORE  FWON  NEW  ITMID 

DUMMY  USED  TO  READ  QUANTITIES  PROM  OLD  ITMID 
QUANTITIES  FROM  NEW  ITMID 

DUMMY  USED  TO  READ  DENSITIES  PROM  OLD  ITMID 
DENSITIES  PRC  '  NEW  ITMID 
SEQUENCE  NUMBER  POR  EACH  LIN  COOC 
CONTAINS  DATA  PROM  COLUMNS  AQ-SA 
Or  RECORD  A  FROM  PREVIOUS  ITMID  FILE 


DIMENSION  N0HPNIS1,  DENS  I  I S I ,PENS2 I S » »RP C *  151 

integer  cuani  m.QUAN?m  ,scq 

F0WMATm.A6.J2A.JASI 

FORMAT  t IX ,Ab. IX ,SAt  I 

FORMAT  UX,  A6.  IX  ,SAt  .1X.3AS.1A) 

FOWMAl (717 1 
FORMAT (7171 
FORMAT I5FS.2 l 

FORMAT  (IX.Ab.lX.SAb.lbX.lAl 

SI  C  =  L 

Rt  ADIS  ,2C0  .ENT: 99  I L  I N2 . (  NOME  N  ( I  l,l=l,BI 
Rl ACI7,10G,CNP-96)L1N1,IRCCA( NN ),NK=1,3I 
IF  tllNl  ,LT .LIN2 100  TO  2D 
IP  (LINl.GT.LlN21tiO  70  90 
SE  0  =  SCO*1 

wRITE( 3, JC01L1N2, (NOMEN ( 1 1 , 1 = 1 ,5 1 , ( Rt C A ( NNI ,NN: 1 , 3 1 , SE Q 
Rl ADI! ,ASC,CNP=991 I0UAN2I jl.jrl ,71 
RE  AD  17 , AGO , END- 96 l (QUAR1 I JJ1.JJI1.7  1 
wRmlJ.ASGMCUAN2l.il,  Jr  1,71 
UC  SO  11  =  1  .7 

RE  AD  It ,SQ0,ENr=99  I  (DENS? IK I ,K  =  l ,SI 
RE  ADIT, BOO  .EM'S*#  1 1  DENS  I  (MM  ,  MM:  I  ,S  1 
wRlTt<3,S0UMDENS?IK),K=l,St 
CONTINUE 


Figure  II1.7.3 
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lNCLAS51flE0***TH.£  NAHE182X5T 


CtCHENT  NAHE sITHID/REC-A***ONCLASSIElEO 


Sm  uO  TO  10 

S9x2T  RE  AO  IT,  4(jU, ENCORE II  GUAM <LI«L=1»7» 

60l  UO  70  1J=1,7 

61  t  BE  *01  7,500, CNE^VE  IlDE Nil  IH1,H=1,5I 

62tT0  CONTINUE 

63 t  REA0I7,I0Q,£ND:96 11  IN 1 , I RECA I *N I , NN  = 1 , 31 

64  *  ir  I11N1  .CC.LIN2  IGO  TO  30 

65 1  ir IL1N1.11.L1N2IG0  TO  20 

66  X VO  SEQ=SEQ«1 

6  7s  HE A0l«,40Q,ENP:991IQUAN2tU.l,lL=l,TI 

6  8 x  .RITE! J.bOC  It 1N2, IhOHENtll ,1  =  1,51 ,SEO 

6V X  .RITEI3,45CIICUAN2llLI,Ll=l ,71 

7Cl  UO  60  N=l,7 

71*  HE  AO (8  ,SUU,ENn  =  V9 I (DC  NS? IKMI ,NH= 1 ,5  I 

72*  .RITE l3,50UlinENS2IMH|,HH=l ,51 

73*60  CONTINUE 

74  i  «B  1  T t l-,200ltIN2« INOHENI II  I ,11:1,51 

75 X  RE  AO  1 8,200, ENC=99l|.lN2,  I  NOHEN  11  1,1  =  1,51 

76  X  (,0  TO  bO 

77x98  SE  C  =SE  0*1 

78  X  BE  AO  I  8 ,45C,EN0=991 I QU AN? ILL)«LL=1,7I 

7V X  .RITEI  J,60UILlN2,  INOHENI 1 1,1-1, 51, 5EQ 

eCi  kRlTEt3,4bi')tOUAN2ILLI,lL  =  l,7l 

BIS  UC  4C  Nil, 7 

02  X  BE ACI8 ,50U,En0:99| IDCN32IHHI ,HH:i ,51 

83:  •RITCI3,5UCII0ENS?IHHI,hm;i ,51 

84X40  CONUNUE 

85:  »R 1TE I  2,200  It XN2,  INOHENI II 1,1 1  =  1,5 I 

86  :  BE  AC  18 ,200  ,ENr=99 It IN2, I NOHE Nl 1 1,1  =  1,51 

8  7  X  CO  10  V8 

88X99  STOP 

8  9  X  L  NO 


Figure  II1.7.3  (Cent) 


onclassifico^cxamfle  op  thf  output  hc«  utility  iY-iP/TE**p»*»uNct*ss:rtrn 


1 

AC  31 98 

AM  VEM  M2  IB  OM  fC  FI* 

2 

54 

64 

44  58 

78 

I 

.00 

.0(1 

.00 

.10  .70 

4 

.00 

.00 

.00 

.80  .20 

* 

.00 

.00 

.00 

.80  .20 

E 

.00 

.00 

.no 

.80  .20 

7 

•  oc 

.00 

.00 

.80  .20 

8 

.00 

.00 

.00 

.80  . 20 

4 

.00 

.00 

.00 

.75  .25 

*0 

*147  52 

AOAN  TEST 

CAMERA  LM17  8 

a 

10 

16 

16  17 

17 

12 

.00 

.00 

.20 

.60  .00 

ii 

*00 

.00 

.20 

.80  .00 

14 

.00 

.00 

.20 

.80  .00 

15 

.00 

.00 

.15 

.85  .00 

If 

.ou 

.00 

.15 

.85  .00 

17 

.00 

.00 

.35 

.65  .00 

18 

.00 

.00 

.35 

.65  .00 

19 

*2  24  98 

*  IN  IN  S  CIRCLE  M2  W/C 

20 

6615 

6699 

8820  8823 

8823 

21 

.25 

.25 

.50 

.00  .00 

22 

.25 

.25 

.SO 

.00  .00 

23 

.25 

.25 

.50 

.00  .00 

24 

.25 

.25 

.50 

.UO  .00 

25 

.25 

.25 

.50 

.00  .00 

26 

.25 

.25 

.50 

.00  .00 

27 

.25 

.25 

•  SO 

.00  .00 

28 

*2  3770 

AIR 

CONP 

FL/WNOV  6000  8 

29 

0 

0 

0  0 

0 

30 

.00 

.00 

.00 

.00  .00 

31 

.00 

.00 

.00 

.00  .00 

12 

.00 

.00 

.00 

.00  .00 

sr. 

.00 

.OP 

.00 

.no  .no 

34 

.00 

.00 

.00 

.00  .00 

35 

.00 

.00 

.00 

.ou  .no 

36 

.00 

.00 

.00 

.00  .00 

37 

*2  38  28 

AIR 

CONE 

F/U*  9  000  87  V! 

38 

BBS 

99  3 

998  998 

958 

33 

.00 

.00 

.25 

.25  .50 

40 

.00 

.00 

.25 

.25  .50 

41 

.OU 

.00 

.25 

.25  .50 

42 

.00 

.00 

.25 

.25  .50 

43 

.00 

.00 

•  25 

.25  .50 

44 

.OU 

.00 

.25 

.25  .50 

4S 

.00 

.00 

.25 

.25  .50 

46 

*?  4U44 

AIR 

CCNO 

ISdOC  BTU 

47 

53 

S3 

53  55 

55 

48 

.00 

.00 

.00 

.50  .50 

49 

.00 

.00 

.00 

.50  .50 

50 

.00 

.00 

.00 

.50  .50 

SI 

.00 

.00 

.00 

.50  .50 

52 

.00 

.00 

.00 

.30  .70 

53 

.00 

.00 

.00 

.30  .70 

54 

.00 

.00 

.00 

.30  .70 

55 

*24318 

AIR 

COND 

1B0UU  RTU 

56 

15 

2  S 

42  57 

63 

57 

:  .no 

.00 

.25 

.75  .00 

ii  ii 


IT  1? 


8123  8078 


0  o 


398  998 


55  55 


83  37 


Figure  III.7.4 
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UNCL*SSIFirO»»»EX*MPLC  OF  THE  OUTPUT  OF  UTILITY  ITHIO/REC-A - • *UNCL AS SIFICD 


1: 

AO  3198  AK 

VEH  M218  GM  EQ  P1A 

0  522 

30  0 

1 

2 

2S 

54 

64 

44 

58 

78 

88 

88 

3: 

.00  .00 

.00 

.80 

.20 

4 : 

.00  .00 

.00 

.80 

.20 

s : 

.00  .00 

.00 

.80 

.20 

e: 

.00  .00 

.00 

.80 

.20 

7: 

.00  .00 

.00 

.80 

.20 

a: 

.00  .00 

.00 

.80 

.20 

9: 

.00  .00 

.00 

.75 

.25 

10: 

A14752  ADAP  TEST 

CAMERA  LM178 

01636 

30  0 

1 

2 

n: 

10 

IS 

16 

17 

17 

17 

17 

12: 

.00  .00 

.20 

.80 

.00 

13: 

.00  .00 

.20 

.80 

.00 

i4 : 

.00  .00 

.20 

.80 

.00 

1ST 

.00  .00 

.15 

.85 

.00 

16: 

.00  .00 

.15 

.85 

.00 

17: 

.00  .00 

.  35 

.65 

.00 

is: 

.00  .00 

.35 

.6  5 

.00 

19: 

A22496  AIMING  CIRCLE 

M2  W/E 

01636 

30  0 

1 

2 

20: 

6615  6699 

8820 

8823 

8823 

8323  1 

8978 

21 : 

.25  .25 

.50 

.00 

.00 

22: 

.25  .2S 

.50 

.OU 

.00 

23: 

.25  .25 

.SO 

.00 

.00 

24: 

.25  .25 

.50 

.00 

.00 

25: 

.?S  .25 

.50 

.00 

.00 

26: 

.25  .25 

.50 

.00 

.00 

27: 

.25  .25 

.  50 

.00 

.00 

28 : 

A2  3770  AIR 

COND 

FL/WNDW  6000 B 

01833 

30  0 

1 

2 

29: 

0 

0 

0 

0 

0 

0 

0 

30 : 

.00  .00 

.00 

.00 

.00 

31 : 

.90  .00 

.00 

.00 

.00 

32: 

.00  .00 

.00 

.00 

.00 

33: 

.00  .00 

.00 

.00 

.00 

34: 

.00  .00 

.00 

.00 

.00 

35: 

.00  .00 

.00 

.00 

.00 

36 : 

.00  .00 

.00 

.00 

.00 

37: 

A23828  AIR 

COND 

F/UA 

9000  BTU 

01833 

3D  0 

1 

2 

38 : 

8  89 

99  3 

9  98 

998 

998 

998 

998 

39: 

.00  .00 

.25 

.25 

.50 

40 : 

.00  .00 

.25 

.25 

.50 

4i : 

.00  .00 

.  25 

.25 

.50 

42 : 

.00  .00 

.25 

.25 

.50 

43: 

.00  .00 

.25 

.25 

.50 

44 : 

.00  .00 

.25 

.25 

.50 

45 : 

.00  .00 

.25 

.25. 

.50 

46 : 

A24044  AIR 

COND 

18000 

1  BTU 

01833 

30  0 

1 

2 

47: 

S3 

53 

53 

55 

55 

55 

55 

48 : 

.00  .00 

.00 

.50 

.50 

49: 

.00  .00 

.00 

.50 

.50 

eo: 

.00  .00 

.00 

.50 

.50 

si: 

.00  .00 

.00 

.50 

.50 

52: 

.00  .00 

.00 

.30 

.70 

53: 

.00  .00 

.00 

.30 

.70 

54: 

.00  .00 

.00 

.30 

.70 

55: 

A24318  AIR 

COND 

18000 

BTU 

01833 

30  0 

1 

2 

56 : 

15 

2b 

42 

57 

63 

83 

97 

57: 

.00  .00 

.25 

.75 

.00 

Figure  III.7.5 
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UN CL ASSIFIEO •••£  X AMPLE  OF  OUTPUT  0  ATA  MISSED/ITMID-CODES  FROM  UTILITY  ITMIO/TEMP 


i:  *90118  ARM T  SS  HEL  7.62HM  M2  3 

2!  A 9 0123  ARM T  SS  HEL  7.62MM  M2  4 

Si  A90344  ARM T  SS  HEL  7.62MM  M4 1 
4J  J88047  INS  TL  KIT  ELEC  EQ !  MK1S  2/GSG- 
5!  L4  5016  LCHR  RKT  ACFT  M158A1 
e:  L4  5063  LCHR  RKT  ACFT  H200A1 
7!  L52040  LENS  CONE  A  R  LA-370A 

a:  L52041  LENS  CONE  A  R  LA-371A 

9!  L52042  LENS  CONE  A  R  LA-372A 

lOi  L91701  MG  CAL. 50  HVY  FIXED 
11 :  L9  22G0  MG  7.G2MM  ACFT  LT 
12?  LOSS 39  MAINT  A  K  MK-1192/ARM 
13!  M.1621  MASK  CBR  PROT  ACFT  M2  4 
14!  200570  AERIAL  RAOIAC  AN/ADR-G 
15:  221489  DETECT  SET  AN/APR 39V2 
Ifi:  24  3971  MIC  NS  AIR  DATA  TML  »R PV 
17:  243999  MISSION  PAYLOAD  NIGHT  J  PVI 
18:  244712  MOUNT  GM  LCHR  DRAGON 
19:  250159  POSITION  LOC  RPT  ABN  U 
20:  2G2820  AIR  VEHICLE  (RPV) 

21 :  2GG15U  MISSION  PAYLOAD  OAYLIGH  *RPV» 
22*.  293241  TRK  COO  10T  MLRS  RESUFP  Y 


Figure  111.7.6 
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CHAPTER  8 


UTILITY  -  TOE/1ST  RUN 

8.1  DESCRIPTION  OF  PROCESSING;  This  program  performs  only  logic- 
tested  read  and  write  functions;  no  computations  are  performed. 

8.1.1  PURPOSE/FUNCTIONS;  The  objective  of  this  utility  is  to  extract  from 
the  Table  of  Equipment  (TOE)  Master  File  obtained  from  FASTALS,  authorized 
LINCODES  and  quantities  by  unit  type  and  place  them  into  the  output  file  TOE/- 
IST  RUN.  This  function  is  accomplished  by  comparing  the  nine  character 
Standard  Requirements  Codes  (SRC)  of  the  TOE  Master  File  with  the  SRC's  of  the 
Arrayed  Units  file,  which  is  generated  by  the  study.  When  a  match  is  detected  the 
appropriate  information  is  extracted  from  the  TOE  Master  File  and  written  to  the 
output  file. 

SRC's  in  the  TOE  Master  File  for  which  no  match  could  be  made  in  the  ARRAYED 
Units  file  are  written  to  a  second  output  file  named  "UNMATCHED/UNITS. 

The  newly  created  TOE/1ST  RUN  file  will  be  used  as  input  to  the  following  utility, 
SCRUB/TOE. 

8.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  III.8.1.  The  logic  flow  found  in  the  utility  is 
described  by  the  flow  chart  in  FIGURE  III.8.2.  The  source  code  for  this  utility  is 
pictured  in  FIGURE  III.8.3. 

8. 1.2. A  INPUT  DATA  AND  DATA  BASE:  This  utility  uses  two  data  sets  as 
input  files.  The  first  file  is  the  FASTALS  TOE  Master  File  which  is  obtained  from 
the  support  Forces  Group,  Forces  Analyses  Directorate,  USACAA.  The  file  is  a 
copy  of  the  FASTALS  TOE  data  for  the  outyear  of  the  current  WARF  study.  The 
second  input  data  set  is  the  ARRAYED/UNITS  file  which  is  normally  created 
manually  using  the  system  editor  and  data  from  the  current  study's  program  file. 
Both  files  are  sorted  in  ascending  order  based  upon  the  9  character  SRC  code. 

Figure  III.8.4  depicts  the  record  layout  and  sample  data  for  the  FASTALS  TOE 
Master  File.  Figure  III.8.5  depicts  the  record  layout  and  sample  data  for  the 
ARRAYED/UNITS  file. 


8.1.2.B  OUTPUT  DATA  AND  DATA  FILES;  -  This  utility  produces  two  data  sets 
as  output.  The  first,  UNMATCHED/UNITS,  is  simply  a  list  of  units  for  which  an 
SRC  match  with  the  TOE  Master  File  could  not  be  made,  the  second  file,  TOE/ 1st 
RUN,  is  a  compilation  of  all  units  for  which  an  SRC  match  was  made  and  the  list 
of  major  items  of  equipment  which  is  authorized  for  the  unit.  The  file  has  two 
major  record  types.  The  first  record  type,  of  which,  there  will  be  one  for  each 
second  record  type,  of  which  there  can  be  one  or  more,  denotes  each  item  of 
equipment,  identified  by  its'  L1NCODE,  authorized  to  the  unit  and  quantity  of 
items.  This  file  will  be  used  as  input  to  the  following  utility  SCRUB/TOE. 


Figure  Ul.8.6  depicts  the  record  layout  for  the  UNMATCHED/UNITS  file  and  an 
example  of  the  file.  Figure  III.8.7  displays  the  record  layout  for  the  TOE/lst  RUN 
file  and  present  an  example  of  the  data  that  can  be  found  in  the  file. 
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8.1.2.C  DATA  ELEMENT  DICTIONARY: 


The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 
NAME  DEFINITION 

LIN  The  six  character  alphanumeric  code  which  uniquely 

identifies  an  item  of  equipment. 

ISRC  The  nine  character  Standard  Requirements  Code  found 

in  the  ARRAYED/UNITS  file.  The  utility  will  estab¬ 
lish  this  variable  as  an  array. 

JSRC  The  Standard  Requirement  Code  found  in  the  TOE 

MASTER  file. 

IUNIT  A  25  character  alphanumeric  field  which  describes  the 

combat  unit  being  analyzed.  This  information  is 
supplied  by  the  ARRAYED/UNITS  file.  The  utility 
establishes  this  file  as  an  array. 

ATEST  A  1  character  field  used  by  the  utility  to  analyze  the 

records  in  the  TOE  MASTER  file.  The  TOE  MASTER 
file  consists  of  2  record  types.  The  first  record  type  is 
identified  by  an  "A"  in  the  first  character  position;  the 
second  record  type  is  flagged  by  a  "B"  in  the  first 
character  position. 

IQTY  A  4  character  integer  field  which  denotes  the  quantity 

authorized  of  a  specific  item  of  equipment.  This  data 
is  supplied  by  the  TOE  MASTER  file. 

UNID  A  4  character  alphanumeric  code  which  uniquely 

identifies  a  unit  within  the  study.  This  data  is  supplied 
by  the  ARRAYED/UNITS  file.  The  utility  dimensions 
this  variable  as  an  array. 

I»  H»  3  Various  integer  variables  used  as  subscripts  to  the 

arrays  used  in  the  utility. 

8.2  OPERATING  ENVIRONMENT:  The  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

8.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  ASCII  FORTRAN 
compiler  and  the  UNIVAC  1100/82  system  facilities. 

8.2.2  I/O  DEVICES:  This  utility  will  use  input  files  which  reside  on  disk  and 
will  in  turn  produce  files  which  wiil  reside  on  disk. 

8.3  MAINTENANCE  PROCEDURES:  There  are  no  explicit  maintenance  pro¬ 
cedures  developed.  ~*™ 
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8.3.1  PROGRAMMING  CONVENTIONS:  This  utility  takes  advantage  of  the 
structuring  capabilities  of  ASCII  FORTRAN.  Unlike  FORTRAN  IV,  the  program¬ 
mer  can  format  its  logic  using  IF-THEN-ELSE  Structures.  Each  level  of  logic  may 
be  indented  2  spaces  in  order  to  show  the  structure  and  logic. 

8.3.2  INTERNAL  ERROR  ROUTINES:  There  are  no  specific  error  routines 
written  into  the  utility.  However  the  utility  is  structured  so  that  if  it  reaches  the 
end  of  the  ARRAYED/UNITS  file  before  all  the  equipment  items  and  units  in  the 
FASTAL  TOE  Master  File  have  been  processed  it  will  branch  to  and  print  an 
appropriate  error  message  before  it  terminates. 


( 
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START 


PROGRAM 
TOE/1  STRUM 


Figure 


UNCLASSIFIEO».*FILE  NAME  *B2X  QT  ELEMENT  NAME.T0E/15T PUN*** UN CLASSIFIED 


i:c ••***•»*••*•*•»*•**••*••*••••••*••••*••*•••••••••• 

2 ;c •*••••••••••••*•••***••••••• *•*•••••**••••••••••*••**•••**•**••••••*••••• 

3:c*»***this  utility  program  has  been  written  in  ascii  fortran. 

4  SC  *»•••»»•*•*****•••*••**•••••••••••••••••••**•• 

s  :c •»••••*»••»»••*»••»•••••»• »*»••***•**»**»»»»»*»**•*»***•**«»*•*«•*****»»»»» 

6:C*****THIS  utility  is  designed  to  MATCH  the  fastal  TOE  MASTER  FILE 
7:C*****WITH  THE  type  UNTTS  LIST  BY  SRC  AN;.*  EXTRACT  FROM  THE  TOE  MASTER 
8:C**»**FILE  AUTHORIZED  LIN  COOES  AND  QUALITIES  BY  UNIT  TYPE.  INPUT  FILES  TO 
4  SC  •• »• ‘THIS  UTILITY  INCLUDE  THE  FASTACS  TOE  MASTER  FILE  AND  STUDY  GENERATED 
10:C*****TYPE  UNITS  LIST  BY  SRC  FILE. 

li:C*.»**THE  TYPE  UNIT  LIST  BY  SRC  IS  A  MANUALLY  EOITTED  ELEMENT 
12:C*»»»»"ARRAYCD/UNITS*  OF  THE  CURRENT  STUDY’S  PROGRAM  FILE. 

13 :C  **  **  *THE  CONTENT  OF  THTS  LIST  INCLUDES  SRC,  TITLE  AND  ARRAY  COOE 
14:C**«**F0R  EACH  TYPE  OF  UNIT  ARRAYED  IN  THE  FOUR  STYLIZED  POSTURE  ARRAYS. 

IS  :C  ** *• ‘THE  OUTPUT  OF  THIS  UTILITY  HILL  SERVE  AS  INPUT  TO  THE  UTILITY 
IGSC»*«**,8ZXQT.  SCRU8/TOE*. 

17 :c *•*•*«*••«»**••.••»*•••««•••.•••••.*.*.•••.*•». •*•,.•**••»»*•*•»••»». ...... 

ia:c ••••*«••**«•*•»**••*••••»• ••»*•••**•»•***•*••»»«••••»•»»»•••••**»*••»»»*»»• 

19:C**»**VARIABLE  NAME  DICTIONARY 
20:C*«***VARIA9lE  name  definition 

2i:c*. *• *ISRC( II  STANOARO  REQUIREMENTS  CODE/TOE  * 

225C  FROM  ARRAYED  UNITS’  DATA  FILE 

23:C**»**IUNIT(I)  NOMENCLATURE  OF  TYPE  UNIT 

24  IC •»  *• *L IN  LIN  COOE  FROM  THE  MASTER  TOE  FILE 

25  :C •»  **  *1 QTY  6UANTITY  AUTHERIZED  EACH  LIN 

26  JC **  »• *IUNID (I )  TYPE  UNIT  NUMBER 

27  1C  *»  *• »JSRC  STANDARD  REQUIREMENTS  CODE/TOE* 

28 !C  FROM  THE  TOE  MASTER  FILE t F AST ALS ) 

2BSC  ****.BTEST  *8«  TYPE  RECORD  tLTN  CODE  8  QYT  RECORD) 

30:C**«**ATEST  •A'1  TYPE  RECORD  t$RC/TOE  «> 

3i:c* . . 

32:c.*». 

33:  CHARACTER. 4  UNIOt 200) 

34!  CHARACTER. 9  ISRC<200> 

35!  CHARACTER.25  IUNITI200) 

361  CHARACTER. 6  LIN 

37:  CHARACTER. 9  JSRC 

38:  CHARACTER. 1  ATEST 

39:  CHARACTER. 1  BTEST 

4C:iO  1=1*1 

41 :  READ! 7.  200. END=20 lISRCt  I) • I  UNIT 1 1 ) , UN ID  1 1 ) 

42:200  FORMAT( 1X.A9.2X.A2S.A4) 

43:  GO  TO  10  '• 

44  :20  11=1-1 

45  :25  REAOt  8,  300. END: 95  I  ATE  ST 

461300  F  ORMA  T( All 

47J50  IFI ATEST, EQ.’A’ ) 

48:  .THEN 

49:  READ* 0,301) JSRC 

50:301  F  OR  MAT! IX ,A9) 

51 :  I  Ft  IS  RC  tl  I )  .LT»  JSRC  !G  C  TO  99 

52:  DO  30  J=1»II 

53:  IFt IS  RC ( J ). EQ . JSRC) 

54 :  *  T  HE  N 

55:  WRI TE  t9 ,400 )ISRCt  Jl  .  IUN IT t J ) , UN  10 t J ) 

56:400  FORMAT!  A9.5X.A25.6X  ,A4) 

57:4  0  REA  Ot  8 »  302, EN0=97  )B TEST .LIN, IQTY 


Figure  III.  8. 3 


233 


s 

t 

l 

t 


4 

i 

•< 

--j 

i 

i 


J 

1 


l 

\ 

t 


| 

I 

* 


► 


IIW1  ««t.1.C/»STW.—  ».ClKSJra» 


59:302 

59*. 

60 : 

61*. 

62:401 

65*. 

64: 

65*. 

6t: 

67: 

6e : 

69  : 30 

70 : 

71 : 

7z: 

73: 

74J9S 

75:505 

76J 

77:S06 

7e: 

79:97 

50  :5QZ 

91 : 

32 :99 
as: 


F0RMATtAl*A6*l4 J 

IFt  rtest. eo»*  fl* : 

THEN 

«RITf  <9*401  >L1N*3  STt 
F  ORMATt  5X.A6*2X«1 4) 

60  T 7  40 

ELSE  .  . 

READ  I  0* 3001 *TEST 
GO  TO  50 
E  NnIF 
EM  OIF 
CO  NT  INUE 
60  TO  25 
ELSE 

GO  TO  25 
E  NO  IF 

FORHATf ’RFaCH  END  OF  FILE  ON  END=95M 
URITEt 10*506 >JSRC 
FORMAT  «»9I 
60  TO  99 

r52S*«!ci  END  OF  FILE  ON  EN0=97M 
WRITE:  10*506  JlSRCl  J| 

STOP 
E  NO 


Figure  III.  8. 3  (Cont) 
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UN CL  AS  SI  FI  CD •• *C  X AMPLE  OF  OATA  FILE  02UST0CM  (FASTALS  MAST CM  TOC l •♦•UNCLASSIFIED 


liAoioseosoo 
i :b ao 32100001 
3  :BA3 09*60002 
*18  A3  20600002 
StBAS  S293U0Q1 
6  IB  AT  22  600002 
71BA90118Q00* 
8  IB  BO  71260001 
9 18  B6 77660002 
io:ec5  28010001 
11  1BC5  30120001 
1216CE 87190012 
13:BCE  88  56000* 
1*  1BC8 *2270001 
1S:BC8  *7750001 
IE :BC8 62130001 
17 IBCe 91*50110 
18:aC8 92130110 
19  IB 07 9* 810001 
20:B08 01160001 
21 JB09 05380001 
221609 88880001 
231609  90250001 
2*  IB  CO  05  33  0002 

25  IB  El  08  350001 

26  IB E2 *2810001 
271BE3 30830001 
281BE* 57660003 
291BC* 5820000S 
301BE5 86010002 
31 18 E7 006* 0001 

32  1BE7 02010001 

33  1BE7 08 170001 
3*  1BE8 *5310001 

35  1BG* *5690001 

36  IB  08 52U20001 

37  IB  HO  23000001 
381BH8 38170002 
39  IB J* 29760001 
*0  IB J* 39180003 
*1  IB J* 61100002 
*2  18 J* 76170001 
*3  IB J* 90550001 
*9  IB  J*  93980002 
*5  1BJ5 *3 300001 
*G  IB K2 381*0001 
*7  IB  K2 53*20008 
981BK3 10*20002 
*9  IB  K3 1795000* 
S018K8 72*30001 
51  IB  KB  72690001 
5218K8 72730001 
531BK9 73190001 
5*  IB K9 82510001 

55  1BL0098*0001 

56  IB  LI  05  32000* 

57  IB L*  *5  95 0006 


Figure  IIL8.4 


UNCLASSJFIEO»»*CXAHPLt  OF  ARRA YC  0/  UNIT  S  OATA  F  ILF*  »*UNCL  AS  SIFIES 


i: 

03087H70(J 

NBC  OEF  CO 

CHOI 

£  • 

0514  5H710 

CBT  t  KG  BN 

EN02 

j: 

0M4GH7L0 

HHC  ENG  BN 

ENOS 

h: 

05 14  7H0Q0 

ENG  CO 

EN04 

s  : 

0514  SH710 

BRG  CO 

ENOS 

f : 

06  702H000 

H HP  DIVARTY 

FA06 

?: 

06  36  5HU00 

155NH  SP  BN 

FA07 

8! 

06  7C6HOOO 

H HP  155KH  BN 

FAOB 

«: 

QC  367HUOO 

1 55KM  PTRY 

PA09 

10: 

06 38 9M000 

SVC  8TPY  155MN 

FA10 

U! 

06  39  SB  110 

8* /OS RS  BN 

F  All 

125 

06 396B110 

H HP  6"/?SRS  BN 

FA12 

13: 

DC  397B000 

8*PTRY 

FA13 

it: 

06  398B100 

GSRS  BTRY 

rA14 

is: 

06  39  9B000 

SVC  RTRY  8*/GSRS 

FAIS 

16 : 

06 44SH100 

8"  SP  B  NJ  CORPS! 

FA16 

it: 

06  44  6H100 

HH9  8*  BNtCORPSI 

FA17 

is: 

06 447H100 

8*  8TRY<C0RPSI 

faib 

19: 

06  44  9H100 

SVC  BTRY  8* 1C  OR PS » 

F  A19 

zq: 

06  SJ.  SB  000 

GSRS  BNtCORPS) 

FA20 

21 : 

06  S16B000 

HHP  GSRS  BN  1 C  OR  PS  » 

FA21 

22: 

06 S17B000 

GSRS  BT RY !C OR PS  1 

F  A22 

23: 

0704 SH020 

NECH  INF  BN 

HE23 

2t : 

07046H010 

HHC  NfCH  INF  BN 

ME24 

2s: 

07047H010 

NECH  INF  CO 

ME25 

2f.: 

U7047H9X9 

MECH  INF  PLT 

ME28 

27: 

0704 8H020 

CS  CO  INF 

ME27 

28: 

0803 5H000 

MED  BN 

MD2B 

2s: 

Oe Q36M000 

HHC  NED  BN 

M023 

30 : 

0S037H000 

MED  CO 

MD30 

31 : 

08 12 3H 000 

CBT  SUPT  H0SRITAL ICORPS! 

MD31 

32: 

09 127H410 

NED  AKB  C0<  CQRFSJ 

ND32 

33: 

05 137H200 

MED  AIR  ARE  C0<  CORPS! 

MD33 

3«t: 

0903 8H 300 

ORP  CO  CONV  ANN C<  CORPS* 

0R34 

35: 

U9 047H400 

spec  anno  ns  cotc  CRPS > 

CR35 

36: 

09 04 8G 300 

SPEC  ANNO  OS/GS  C  CtCORPS 

1  0R36 

37: 

0926 8H300 

n nt  ftry  hawmcorfsi 

AD37 

38 : 

U9S57H510 

MISSILE  SUPT  CO 

AD38 

39: 

1DD07HOOO 

ses  co 

QM39 

to : 

10207H300 

PETRI.  PL8TML  CP  C  CtCORPS 

I0M40 

hi  : 

11 03  5H0Q0 

SIGNAL  9N 

SC41 

42: 

11D36HOOO 

HHC  SIG  BN 

SC42 

43: 

11037HQ0Q 

CMC  CPS  CO 

SC43 

hh  : 

11 03  3H00D 

PWC  CCMM  CO 

SC44 

ns: 

1103  9H00Q 

SIG  SUPT  OP  CO 

SC45 

46 : 

12017H610 

AG  CO 

AG46 

47: 

14  037H61D 

FIN  CO 

PC47 

ns: 

170U4HOOO 

HHC  ARMD  OIV 

AR48 

49: 

1703  5HQ1Q 

TANK  105KH  BN 

AR43 

so : 

17  U3  6HU00 

HHC  tank  BN 

AR50 

si : 

17037H010 

TANK  105NN  CO 

*R51 

52: 

17037H9X9 

TANK  105NH  PLT 

AR52 

53: 

17U39HOOO 

CS  CO  TANK 

AR53 

54: 

1704 2H000 

HHC  ARMD  8DE 

CA54 

h: 

17 10SH020 

A  RKD  CAV  SOON 

CA55 

sc: 

17106H0Q0 

HHT  CAV  SGON 

CASE 

57: 

17 108H000 

A  IP  CAV  TRP 

CA57 

Figure  111.8.5 
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•  —  *•  ’  .fir  ■Y'rMTTiiiJMitorfaahirrr^  • 


’JPCLAErTFIEP^EXAMPLE  Or  OUTPUT  r  SOK  UTILITY  TOT/ir-PUN^^UNCLUSSIFIEO 

lJREAOHEr  END  OP  rJtr  ON  ENOtSF 
::i22?SH700 


Figure  III.8.6 
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uscLASsmco***tx*HPur  or  output  r son  utility  m/x?’PUN...uKCL»ssrnto 
i:0S087M700  N9C  Off  CO  CHOI 


2: 

132316 

1 

3: 

*32444 

9 

4: 

*32540 

9 

3: 

*72260 

1 

t: 

B49272 

111 

?: 

9(7766 

10 

•  : 

C5  2601 

1 

9  < 

CD  3012 

1 

10: 

CS  3145 

2 

liJ 

C69145 

63 

12: 

C89213 

83 

is:  , 

£00533 

12 

11: 

£45620 

1 

is: 

£70064 

1 

16: 

£61680 

9 

17: 

J43918 

11 

it: 

J4  6110 

1 

n: 

K87243 

9 

20: 

KS7269 

4 

21: 

K87392 

1 

22: 

K87393 

1 

23: 

K874S6 

1 

24: 

L4459S 

10 

25: 

L6  3994 

10 

2c: 

L92386 

13 

27: 

M11895 

111 

2a: 

N75714 

13 

29: 

H60002 

1 

30: 

N54691 

1 

3i : 

N96741 

1 

32: 

P43177 

2 

33: 

P95592 

9 

i«: 

019339 

16 

35! 

Q19681 

1 

36: 

020935 

38 

37: 

Q214  83 

19 

39: 

Q5  3001 

4 

39: 

054174 

4 

40: 

056783 

6 

«»i: 

07  8282 

1 

42: 

«7  3791 

9 

43: 

094977 

no 

44: 

DO  1305 

2 

45: 

VI 5018 

9 

46: 

V31211 

6 

47: 

W32593 

1 

48: 

U32867 

1 

49: 

U3 3004 

7 

so : 

WE  19 10 

1 

si : 

U9  5400 

13 

52: 

U95811 

11 

53: 

X33447 

1 

54 : 

X40146 

11 

55: 

X4Q968 

9 

56: 

XE  8367 

1 

S7: 

X60633 

13 

Figure  1II.8.7 
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CHAPTER  9 


UTILITY  -  SCRUB/TOE 

9.1  DESCRIPTION  OF  PROCESSING:  This  program  performs  only  logic 
tested  read  and  write  functions;  no  computations  are  performed. 

9.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  eliminate  all 
major  items  of  equipment  from  the  TOE/ 1st  RUN  which  are  not  being  played  in 
this  study.  The  resulting  file  is  referred  to  as  the  SCRUBBED/TOE.  To  accomp¬ 
lish  this  function  the  TOE/ 1st  RUN  utility  was  produced  by  the  TOE/ 1st  RUN 
utility  and  passed  against  the  LINCODE/LIST  file  which  was  created  manually 
earlier  from  the  hard  copy  list  of  LINCODES  provided  by  the  study's  sponsor. 
Only  those  items  in  the  TOE/ 1st  RUN  file  for  which  a  match  can  be  made  in  the 
LINCODE/LIST  file  will  be  copied  into  the  SCRUBBED/TOE  file  and  will  continue 
in  the  study. 

9.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE;  -  The  overall  structure  of 
the  utility  is  pictured  in  FIGURE  III. 9.1.  The  logic  followed  by  the  utility  is 
pictured  in  FIGURE  III. 9.2  The  source  code  for  the  utility  is  listed  in  FIGURE 
III.9.3. 


9. 1.2.  A  INPUT  DATA  AND  DATA  BASE:  The  SCRUB/TOE  uses  two  files  as 
input  data  files.  One  file  is  the  TOE/lst  RUN  file  which  was  created  during  the 
TOE/  1st  RUN  utility  which  must  be  completed  prior  to  the  execution  of  this 
utility.  This  file  identifies  the  units  which  are  being  analyzed  under  this  current 
study.  In  addition,  each  unit  contains  detailed  items  of  equipment  which  has  been 
assigned  to  the  unit  and  the  respective  quantities  for  each  item.  Figure  III.9.4 
presents  the  file  layout  and  examples  of  the  data  found  in  the  file. 

The  second  file  used  as  input  to  this  utility  is  the  LINCODE/LIST  file.  This  file  is 
created  manually  using  the  hard  copy  list  of  LINCODES  of  the  equipment  items 
which  are  being  analyzed  in  this  study.  This  list  of  LINCODES  is  provided  by  the 
study's  sponsor.  Figure  III.9.5  present  the  record  layout  and  examples  of  the  data 
found  in  the  file. 

9.1. 2. B  OUTPUT  DATA  AND  DATA  FILES:  This  utility  produces  one  file  as 
output,  the  SCRUBBED/TOE  file.  It  will  be  cataloged  under  the  current  studies 
general  file,  SECRET*82WARFP86.  This  file  uses  the  same  record  layout  as  the 
TOE/lst  RUN  input  file  to  this  utility.  Further,  while  this  new  file  contains  all 
the  units  as  the  input  file,  it  has  eliminated  from  it  ail  items  of  equipment  which 
are  not  being  analyzed  in  this  study.  If  the  item  is  not  in  the  LINCODE/LIST  file, 
it  will  not  be  in  the  resulting  SCRUB/TOE  file. 

Figure  III. 9.6  depicts  the  record  layout  for  the  file  and  an  example  of  the  data 
that  can  be  found  in  it.  Once  again  the  record  layouts  for  the  SCRUB/TOE  and 
TOE/lst  RUN  are  identical. 
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9.1.2.C  DATA  ELEMENT  DICTIONARY; 


The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 

NAME  DEFINITION 

ISRC  Standard  Requirement  Code/TOE  number.  This  9 

character  alphanumeric  field  is  supplied  by  the  TOE/- 
ISTRUN  file. 

IUNIT  Unit  Nomenclature.  This  is  a  25  character  alphanu¬ 

meric  field  which  describes  the  combat  unit.  This  data 
is  supplied  by  the  TOE/ ISTRUN  file. 

UNID  Unit  Identifier.  This  is  a  4  character  alphanumeric 

field  which  uniquely  identifies  the  unit  in  the  study. 
This  data  is  supplied  by  the  TOE/ ISTRUN  file. 

LIN1  The  6  character  item  line  code  from  the  TOE  MASTER 

file. 

LIN 2  The  6  character  item  line  code  from  the  LINCODE/- 

LIST  file. 

IQTY  The  authorized  quantity  for  this  item  as  specified  in 

the  TOE/1STRUN  file. 

ITEST  A  2  character  variable  which  is  used  to  examine 

columns  48  and  49  of  the  TOE/ ISTRUN  record.  If 
these  columns  are  blank  (i.e.,  ITEST=0)  it  indicates 
that  a  record  which  contains  equipment  and  quantity 
data  is  being  processed.  If  ITEST  is  not  blank  it  indi¬ 
cates  a  header  or  unit  identification  record  is  being 
processed. 

NLIN  An  integer  variable  which  is  used  to  denote  the  total 

number  of  items  of  equipment  is  being  played  in  the 
study  as  indicated  by  the  LINCODE/LIST  file.  It  is 
also  used  in  the  utility  as  the  upper  limit  of  a  DO 
LOOP. 

!  An  integer  variable  used  as  a  counter  to  determine  the 

number  of  different  items  of  equipment  being  played 
in  the  study. 

3  An  integer  variable  used  as  a  subscript. 


9.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 


9.2.1  SUPPORT  SOFTWARE:  This  routine  requires  the  ASCII  FORTRAN 
compiler  and  the  UNIVAC  1 100/82  system  facilities. 

9.2.2  I/O  DEVICES:  This  utility  will  use  input  files  which  reside  on  disk  and 
will  in  turn  produce  a  tile  which  will  reside  on  disk. 

9.3  MAINTENANCE  PROCEDURES:  There  are  no  developed  unique  or 
special  maintenance  procedures  or  applications. 

9.3.1  PROGRAMMING  CONVENTIONS;  This  utility  takes  advantage  of  the 
formatting  capabilities  of  ASCII  FORTRAN  by  using  the  IF-THEN-ELSE 
structure.  No  indenting  scheme  is  used  to  illustrate  the  logic. 

9.3.2  INTERNAL  ERROR  ROUTINES:  There  are  no  explicit  error  routines 
built  into  this  utility.  Errors  will  be  detected  by  the  system  and  must  be 
corrected  using  available  system  and  ASCII  FORTRAN  documentation. 


PROGRAM 
SCRUB  TOE 


INITIALIZE 


Figure  111.9.2 
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UNCLASSIFI£D***FILE  NAMr:82XGT  element  name:scrub/toe***unclasstfied 


1JC  •  •••••••• . ** . .  . . . . . 

2 *£19 **•••************«** ******  ******************************************** 

3  JC •• •*  *T HIS  UTILITY  PROGRAM  WAS  WRITTEN  IN  ASCII  FORTRAN. 

0 :c •••••••*••••••••**•••••»•*•• *••••••*•*•••••••»•»•*«••••••••*••••••••••»< 

s:c** ••**•**••••••••*•••••••**• ••«•••*•••»••*•»•*•••*«•» . ****** . . 

G  !C  *•  ••  *THIS  UTILITY  IS  OESIGNEC  TO  TAKE  THE  OUTPUT  OF  UTILITY  •S2XQT.T0E/ 
7JC** ***1STRUN*  ANO  DELETE  ALL  LIN  COOES  FROM  THE  VARIOUS  TYPE  OF  UNIT 
e:c*****TOE*S  WHICH  ARE  NOT  BEING  CONSIDERED  BY  THE  WARF  STUDY.  THE  OUT- 
9 !C •• •• *PUT  OF  THIS  UTILITY  WILL  BE  FURTHER  UPDATED  BY  THE  UTILITY  "82X07. 
1DTC  *• •• *TOE/ADO-PLTS  ANO  MANUAL  EDIT. 

v  :c ••••**•«•*•*•**•*• •••••••»•* •••••**•••••*•*••••••*•••••*•• . •••••••»« 

12 :c •**••••••••••*•••* ••*••••*•• •»••*»••••*••**.**•••**•***.«••**••* . . 

13  5C  •*  •*  *V  ARIA  BLE  NAME  DICTIONARY 
m  IC  ••  ••  (VARIABLE  NAME  DEFINITION 

IS :c*« ***ISRC  STANDARD  REQUIREMENTS  CODE/TOEW 

16  :c**  ***IUNIT  NOMENCLATURE  OF  TYPE  UNIT 

17:c** ***LIN1  LINS  FROM  MASTER  TOE  FILE 

18:C»****LIN2  LINS  FROM  WARKLIST  FOR  CURRENT  STUDY 

19  SC  •*  ••  *1 QTY  GTY  FROM  MASTER  TOE  FILE 

20:C«*  ***IDNUM  TYPE  UNIT  NUMBER 

21  IC**  ***ITEST  OUMMY 

22 :c** •«••••• . ••*•••••••*«•• ••••••*•••*••••*••••••*•••**•••»••••••••••*< 

23  :c **•*•••••**••••••••**••••*•• •••••*•»••*••••••»»•••••«*»**••*•*••••••»••< 

24 S  CHARACTER *9  ISRC 

25:  CHARACTERS  UNID 

261  CHARACTCR*31  IUNIT 

27!  CHARACTER*6  LIN1 

28:  CHARACTERS  LIN2I2000) 

29:10  i=m 

30:  REAOt 3. 300. END=20 )LIN2t  1) 

3i:300  FORMAT! IX. A6> 

32:  GO  TO  10 

33:20  NLIN- 1-1 

34:30  REA0!2.200.EN0=99)ITEST 

35:200  F0RMATI47X.I2) 

36:  I F  t  IT  ES  T.EG  .0  ) 

37:  *THEN 

38:  REAO! 0.201»EN0=99)LIN1.  IGTY 

39:201  F  OR HAT) 5X.A6. 2X.I4) 

40:  DO  40  J=l.NLlN 

41:  IFILIN2 (J).EQ.LlNl) 

42:  *THEN 

43:  WRITE (7.201JLIN1.IQTY 

44:  GO  TO  4  5 

45  :  E  NO  IF 

46:40  CONTINUE 

47:4  5  CONTINUE 

48:  ELSE 

49:  READ!  0.202)  ISRC  .IUNIT  .UNID 

50:202  FORMAT! A9.SX.A31.A4) 

51 :  WRITE (7. 202IISRC. IUNIT.  UNID 

52  :  E  NO  IF 

53:  GO  TO  30 

54:99  STOP 

55  :  E  NO 


Figure  III.9.3 
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UNCL  *5  51  FI  CP  ••  *6  X*  MPLt  OF  OUTPUT  F SOM  UTILITY  TOt/ 1?TRUN»» *UNCL *55  IT  IF  0 
17U30S7H700  NSC  DCF  CO  CHOI 


2: 

*32316 

1 

3: 

*32444 

9 

4: 

*32640 

9 

5: 

* 72260 

1 

c? 

84  92  72 

111 

7: 

Sf-  7766 

10 

s: 

C52601 

1 

a: 

CC3012 

1 

10: 

C53149 

2 

11: 

CS  31 45 

83 

12: 

C89213 

83 

13  • 

600533 

12 

is: 

645820 

1 

15: 

E7UD64 

1 

16 : 

F81880 

9 

177 

J4  3S18 

11 

187 

J46110 

1 

IS  7 

K67243 

9 

20  7 

K67269 

4 

215 

KE7392 

1 

227 

K87393 

1 

237 

KS7456 

1 

24  7 

L44595 

10 

25  7 

Lb  3994 

10 

26  7 

LS  2386 

13 

27  7 

K11895 

111 

28  7 

M75714 

13 

29  7 

MBU002 

1 

30? 

NF  46  91 

1 

317 

N96741 

1 

32? 

P43177 

2 

33? 

P9S592 

9 

34  7 

Cl  93 33 

18 

35? 

G13681 

1 

36? 

32  0935 

38 

37? 

3214  83 

19 

39? 

CS  3001 

4 

297 

GS  4 174 

4 

40? 

356783 

6 

41  7 

G78282 

1 

42? 

R73791 

S 

43? 

Ry  4977 

110 

44  7 

UU1305 

2 

45? 

VI 5018 

9 

46  7 

V31211 

6 

47? 

W32593 

1 

48  7 

U3  2B67 

1 

497 

U3  3U04 

7 

SO? 

US  1910 

1 

51  7 

U9  54  0U 

13 

52? 

U9S811 

11 

53? 

X39447 

1 

54  7 

X4  0146 

11 

55  7 

X40968 

9 

56  7 

XS  8367 

1 

57  7 

XC,  06  33 

13 

Figure  III.9.4 
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unclassifieo^cxamrlc  of  thf  linccoc/list  data  PXLC*»*uNCLASsirtcr 


9 : 

A2  3770 

AI» 

CCNC 

FL/WNOW  6 00 OB 

s: 

A2  33  2B 

AIR 

COND 

F/WA  9000  8 

TU 

e  : 

A?  40  94 

AIR 

CONO 

13000  BTU 

7: 

92  43 18 

AIR 

CO  NO 

1BU00  BTU 

b: 

A2  44  56 

AIR 

COND 

FM  AIR-COOL 

s: 

A2  44  63 

AIR 

COND 

E  /VI  *  1BU00 

BT 

in : 

A2  45  92 

AIR 

COND 

18000  BTU 

ll : 

A2  47  63 

AIR 

CONO 

F/UA  3600QB 

TUU 

12! 

A2  49UCI 

AIR 

CONO 

3EUU0  BTU 

is: 

A2  7153 

AIR 

TRF 

C  F  AN/TSG-9 

7 

19 : 

A3  24  44 

ALARM  CML  AGT  MU 

15  5 

A3  2508 

ALARM  CML  AGT  M12 

if : 

A3  25  64 

ALARM  CML  ACT  AUTO 

it: 

A3  25  68 

ALARM  CML  AGT  AUTO 

ir: 

A3  2570 

ALARM  CML  AGT  AUTO 

18 : 

A3  44  57 

ALGMT  FX 

MX-8409/A AS 

24 

to: 

44  16  66 

RDR 

SET 

AN/TPO-37  LP 

2i : 

A5  5293 

ANAL 

CHG 

B  AN/ASM-13 

7 

72! 

A5  5300 

AN  AL 

CHG 

B  AN/ ASM-49  0 

?3i 

AS  5304 

ANAL 

CHG 

B  A N/CSM-2E 1 

29 : 

ASS7U4 

AN  AL 

flt 

LN  AN/ASM-BO 

25: 

AS  62  35 

AN  AL 

SET 

LS-89A 

2e: 

AS  62  43 

ANAL 

SET 

FNG  PTBL  S 

S 

27: 

ASG8UU 

AN  AL 

SPT 

CM  AN/UPM-58 

2S 

29 

30 

u 

32 

33 
3** 

35 

36 

37 

38 

39 
90 

m 

92 

93 
99 
99 
46 

97 

98 

99 

50 

51 

52 

53 
59 
55 
SS 
57 


At}  31 98  AX  VFW  K21S  CM  E  0  FI  A 
A19752  AO  AP  TFST  CAMFRA  LM176 
A2  24  96  AIMING  CIRCLE  M2  V/E 


A5  89J7  ANAL  SPTCM  AN/UPH-84 
AS  8033  ANAL  SP7CM  TS-T23/U 
*7 7877  ANTENNA  GRP  AN/GRA-4 
A79019  ANTENNA  GRP  AN/6RA-12 
A7  3151  ANTENNA  GRP  AN/GRA-5  0 
A3  99  93  ATTENUTR  V*R  CN-1035/G 
801756  AUGER  EARTH  SM9A 
911795  BOTTLE  CLEANG  AN/7  AM  -9 
819696  BAKERY  F  LT  M-19951P 
930236  BARGE  ASSY  SET  5X12 
830923  BA  PS  C  OE CK  CCO  NP  OC 
893663  BATH  0  PTBL  CEP  LP 
99  55  97  BTRY  CHC  R  PF7286X  G/U 
851098  BEACON  SET  AN/TRN-30V1 
95  1099  BEACON  SET  A  N/TRN-3P  V2 
R6  3711  BIN  STG  AGGR  PTBL  60  T 
BE  79  23  BINOCULAR  EL  AN/PAS- 5 
B6 79 92  BINOCULAR  INFRARED 
Be  3582  BOAT  PRCG  ERECT  GO  2  7 
88  3856  BOAT  LANP  INFLT  15  MAN 
989909  BOAT  RFC  ON  PNEU  3-MAN 
Cl  89  81  BREAKER  PAV-ORILL 
C2U919  BRIDGE  ARMD  VEH 
C2  7058  BRIDGr  ERECT  SET  8 IX 
C2  212C  BRJOGr  ERECT  SET  F 9  UK 
C?  2311  BRIOGC  EXP  HI-WAY  ALUM 
C2  3017  BRIDGE  F  X"  HI-MAY 
C?  5757  8RI0GE  E  LT  G  RAFT  LT 
C25U31  BRIDGE  ERF  C  SET 
C3E120  BL02R  EM  F/M60  SER  T KS 


Figure  III.9.5 
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UN  CL  AS  S1FXCD  *•  *C  XA  NPL6  Of  OUTPUT  Of  UTILITY  SCPUt/TOt*  ^UNCLASSIFIED 


1  ID 30 87 HTOO  NSC  DCF  CO 


a: 

A3  2444 

9 

s: 

600533 

12 

l: 

645820 

1 

sx 

670U64 

1 

c 

681880 

9 

t  : 

J43918 

11 

«: 

J46110 

1 

9: 

L44595 

10 

10: 

H75714 

13 

11: 

N9S741 

1 

1?: 

P431T7 

a 

is: 

P9S592 

9 

1%: 

01 93  39 

18 

is: 

020935 

38 

is: 

02 14  83 

19 

it: 

Q53001 

4 

is: 

054174 

4 

la: 

056783 

6 

20: 

078282 

1 

21: 

R94977 

110 

aa: 

U01305 

a 

as: 

VI 5018 

9 

2«: 

V31211 

6 

25 : 

U32593 

1 

26 : 

U9540Q 

13 

2t: 

U95811 

11 

2a: 

*39447 

1 

29: 

X4U146 

11 

so: 

X409E8 

9 

si: 

X583S7 

1 

32: 

X60333 

13 

ss: 

X6  3299 

1 

34 !U51  45  H710 

CBT 

35: 

A3 2444 

10 

ss : 

BS  35  82 

2 

37: 

88  3856 

18 

ss: 

B8 4404 

27 

33: 

C2U414 

6 

*»o: 

C25757 

a 

41: 

C8  54  94 

3 

02 : 

C86213 

1 

03: 

011538 

3 

012087 

40 

os: 

600533 

24 

96: 

645820 

8 

97: 

656578 

8 

m: 

669242 

1 

49: 

670064 

5 

so: 

670886 

1 

si : 

673626 

a 

52: 

F39378 

3 

ss: 

F81880 

1 

54 : 

002204 

48 

ss: 

G02341 

50 

56: 

H02300 

2 

57: 

H38787 

2 

Figure  I1I.9.6 
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THIS  PAC1  IS  INTENTIONALLY  LEFT  BLANK 


CHAPTER  10 


UTILITY  -  TOE/ADD-PLTS 

10.1  DESCRIPTION  OF  PROCESSING:  This  program  performs  the 

computation  of  dividing  a  units  assets  by  3  and  rounding  to  create  platoon  size 
elements.  All  other  functions  are  logic  tested  read  and  write  statements. 

10.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  identify  those 
units  in  the  SCRUBBED/TOE  file  which  are  in  fact  platoon  size  units  rather  than 
company  size  units  and  correspondingly  divide  the  quantity  issued  the  unit  for 
each  authorized  item  of  equipment  by  3.  Note:  Should  the  quantity  of  platoons 
per  company  size  unit  be  changed,  the  program  must  be  updated,  and  re-compiled. 

A  second  file  is  also  used  as  input  to  this  utility.  This  file  contains  those  units 
which  have  been  flagged  as  platoon  size  units.  Using  this  file  the  utility  is  able  to 
identify  those  platoon  size  units  in  the  SCRUBBED/TOE  file,  make  the  necessary 
adjustments  in  the  quantities  of  equipment  authorized,  if  necessary  and  write  to 
the  output  file  (FINAL/TOE)  the  unit  identification  and  the  equipment  description 
and  quantity  data.  The  study  analyst  is  responsible  for  the  creating  of  the  PLAT¬ 
OONS  file.  This  FINAL/TOE  file  is  the  sole  output  of  this  utility  and  is  used  as 
input  to  the  following  RAM/MATRIX  utility  (after  any  additional  manual  editing 
required  via  the  system  editor).  ^ 

10.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  Ilf.  8.1.  The  logic  followed  by  the  utility  is  pictured 
in  FIGURE  III.  10.2.  The  source  code  for  the  utility  is  listed  in  FIGURE  III.  10. 3. 

10. 1.2. A  INPUT  AND  DATA  BASE:  The  TOE/ADD-PLTS  utility  uses  two  data 
files  as  its  input.  One  file  is  the  SCRUBBED/TOE  which  was  created  as  a  result 
of  the  SCRUB/TOE  utility.  The  second  file  is  the  PLATOONS  file  which  is 
manually  created  using  the  system  online  editor.  Both  files  are  cataloged  under 
the  study's  general  file;  in  this  instance  SECRET»82WARFP88. 

The  SCRUBBED/TOE  file  is  a  collection  of  all  the  units  participating  in  the  study 
accompanied  by  a  detailed  list  of  all  items  of  equipment  assigned  the  unit  and  the 
quantity  of  the  item  authorized.  The  file  uses  two  record  formats.  The  first 
record  format  is  used  to  describe  the  particular  unit  and  occurs  once  per  unit.  It 
contains  such  data  as  the  units  Standard  Requirement  Code,  nomenclature  of  the 
type  of  unit,  and  the  type  unit  ID  number.  The  second  record  type  is  used  to 
describe  the  items  of  equipment  assigned  to  the  unit.  This  record  type  will  occur 
as  many  times  per  unit  (i.e.,  first  record  type)  as  there  are  items  of  equipment 
assigned  to  the  unit  and  being  played  in  the  study.  This  record  consists  of  two 
fields.  The  first  field  identifies  the  item  of  equipment  using  its  LINCODE.  The 
second  field  denotes  the  number  of  individual  units  of  this  item  that  are  author¬ 
ized  for  this  unit.  Record  layouts  and  examples  of  the  data  in  the  file  can  be  seen 
in  Figures  III.  10.4  and  III.  10,5. 

The  PLATOONS  file  contains  data  which  identifies  parent  units  of  company  size 
and  its  corresponding  platoon  size  unit.  This  file  consists  of  one  record  type  which 
describes  the  unit  by  its  Standard  Requirement  Code,  unit  nomenclature  and  unit 
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ID.  The  utility  assumes  the  records  will  be  organized  In  the  file  so  that  each 
parent  unit  record  (company)  will  be  ioiiowed  immediately  by  one  and  only  one 
sub-unit  (PLATOON)  record.  The  record  layout  and  examples  of  data  within  the 
file  can  be  seen  in  Figures  III.  10.6  and  III.  10.7. 

10.1.2. B  OUTPUT  DATA  AND  DATA  FILESt  This  utility  produces  one  output 
file,  ITMID/FINAL.  The  file  element  is  cataloged  under  the  study's  general  file,  in 
this  case  SECRET*82WARFP88.  This  file  contains,  in  addition  to  all  the  data  on 
the  company  size  units,  that  was  found  on  the  SCRUBBED/TOE  file;  i.e.,  unit 
identification  data  and  equipment  identification  data  and  authorized  quantities, 
information  on  platoons  which  are  subordinate  to  selected  parent  units.  These 
parent  units  and  subordinate  units  were  Identified  by  the  study  analysts  and 
transmitted  to  the  utility  through  the  PLATOONS  input  file.  The  file  will  have 
the  same  file  format  structure  as  the  SCRUBBED/TOE  input  file  in  that  it  will 
have  two  record  types.  The  first  record  type  will  describe  the  particular  unit  or 
subunit  and  will  occur  once  per  unit.  The  second  record  will  describe  the  items  of 
equipment  assigned  the  unit  and  the  quantity  of  each  item  authorized.  This  record 
type  will  occur  once  for  each  item  of  equipment  assigned  the  unit.  Figures  III.  10.8 
and  III.  10.9  present  the  file  layout  for  the  file  and  examples  of  the  data  that  can 
be  found  in  it. 

10.1.2. C  DATA  ELEMENT  DICTIONARY: 

The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 

NAME  DEFINITION 

IQTY  This  is  a  4  character  integer  variable  which  denotes 

the  quantity  of  an  item  which  has  been  authorized  for 
a  particular  unit. 

IXQTY  This  is  a  4  character  integer  variable  which  holds  the 

quantity  of  the  item  assigned  to  a  platoon.  This  value 
will  be  1/3  of  the  IQTY  value  rounded  up.  This  will  be 
a  value  derived  in  the  utility. 

5RC1  The  Standard  Requirement  Code.  This  data  is  supplied 

by  the  PLATOONS  input  file.  It  shows  the  title  of 
units  missing  TOE  data  on  platoon  size  unit. 

SRC2  The  Standard  Requirements  Code  for  the  unit  from  the 

SCRUBBED/TOE  input  file. 

SRC3  A  temporary  holding  variable  into  which  the  first  5 

characters  of  a  record  from  the  SCRUBBED/TOE  file 
are  read  for  testing.  It  should  be  noted  that  SRC  1  and 
SRC 2  are  9  characters  long,  whereas  SRC 3  is  5  char¬ 
acters  long. 

LIN  The  6  character  Line  Code  of  a  particular  item  of 

equipment.  This  data  is  provided  by  the  SCRUBBED/- 
TOE  file. 
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XLIN 


This  6  character  variable  will  hold  the  line  code  of  the 
Item  of  equipment  being  assigned  to  a  unit.  This 
variable  is  dimensioned  as  an  array  by  the  utility.  It  is 
assigned  the  value  of  the  line  code  of  the  item  of 
equipment  being  processed, 

XNOM1  This  is  a  35  character,  alphanumeric  variable  which 

contains  the  title  of  the  combat  unit  being  analyzed. 
This  data  comes  from  the  PLATOONS  file. 

XNOM2  Same  as  XNOMl.  This  data  comes  from  the 

SCRUBBED/TOE  file. 

UNID1  The  <f  character,  alphanumeric  variable  which  contains 

the  Unit  ID  and  uniquely  identifies  this  unit  within  the 
system.  This  data  is  provided  by  the  PLATOONS  file. 

UN1D2  Same  as  UNIDl.  This  data  is  provided  by  the 

SCRUB&ED/TOE  file. 

I  An  integer  variable  which  is  used  to  count  the  number 

of  types  of  equipment  assigned  to  a  specific  unit. 

II  An  integer  variable.  This  field  will  contain  the  total 

Humber  of  types  of  equipment  assigned  to  a  unit.  It  is 
Similar  to  fhe  variable  MJ"  above  except  that  I  is 
incremented  before  the  next  record  is  read.  Thus, 
<.  hen  the  last  record  is  read,  "I"  must  be  decreased  by 
l.  It  is  this  value  (i.e.,  1-j)  that  is  assigned  to  "H".  It 
Is  also  used  as  the  upper  limit  of  DO  LOOPS. 

3  An  integer  variable  used  as  the  subscript  of  several 

arrays. 


1°.2  OPE^ATj^G  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTWfe-4  operating  system. 

10.2.2  SUPPORT  SOFTWARE  i  This  routine  requires  the  ASCII  FORTRAN 
compiler  ancfthe  UNI  VAC  1100/22  system  lacilities. 

10.2.2  I/O  pftVICES  :  This  utility  will  use  input  files  which  reside  on  disk  and 
will  in  turn  produce  a  file  which  will  also  reside  op  disk.  Refer  to  Volume  1  for  the 
execution  runstream. 

10.3  It^jANCE  PROCEDURES;  There  are  no  developed  special 

maintenance  pro  *res. 

10.3.1  PROQk.  MNG  CONVENTIONS  This  utility  takes  advantage  of  the 
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formatting  capabilities  of  ASCII  FORTRAN.  It  makes  full  use  of  the  IF-THEN- 
ELSE  structuring  and  further  enhance  the  readability  of  the  program  by  indenting 
those  sections  which  are  nested. 

10.3.2  INTERNAL  ERROR  ROUTINES  :  There  are  no  explicit  error  handling 
routines  in  this  utility.  Therefore  only  errors  detected  by  the  system  during 
execution  will  be  identified;  the  system  error  message  and  system  documentation 
must  be  used  to  correct  the  error  condition. 
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IQTY(I) 

a 

IQTY/3  +  .5 


i.’NCLAssir  in  »**riu  NA^sorxtT  element  name  tioE/ADO-PUs***uNCi»ssirico 


3 

4 

s 

b 

7 

k 

9 

IQ 

11 

12 

13 

14 

15 
lb 
17 
lb 
19 

70 

71 

72 
23 

?4 

2b 

2b 

27 
7b 
29 
70 
31 
72 
7  i 
34 
7  5 
3b 
7  7 
7B 
T9 
40 
"  1 

42 

43 

44 

45 
4  o 
47 
4c 
44 
r  J 
rl 

r  t 

*  3 
'4 
r  5 
5b  t 

*  7  s 


C**#**THI5  PROGPA M  IS  WRITTEN  IN  ASCI  FORTRAN  II. 

C aaa*aaaaaA4AAAAAAv*aaaaA4AAAaaa»**Aa**A**aaa*aaaaa*aaa***a a* A* A* A* 

Caaa*aRuRPOSE  OF  PROGRAM; 

C*n»t 

c****tiHis  utility  program  is  oesig*cd  to  crlat  a  separate  toe 

CAAAaalIN  CODE  AND  QUANTITY  LISTING  F  OR  PLATOON  ST2E  UNITS  FROM 
CaaaaaTmE  TOE  0  A  T  A  PROVIDED  bY  THE  TuE  UTILITIES  "1<2XUT  .  TOE  /  1  S 1  RUn"  AND 
C**«**“F2X5 T .SC  PUP /TOE". 

C*»*«*A  INPUT  FILE  WITH  PARENT  UNIT  SRC.UNIT  TITLE  AND  SEQUENCE 
C#*#**NUMOr.R  FOLLO.EU  T: Y  THE  SA“E  INFO  FOR  THE  PLATOON  SI?E  JNIT 
CaaaaamuST  BE  CREATED  BY  MANUAL  lHIT.  THE  OTHER  INPUT  FILE  WILL  BE  THE 
C’**  *  aa  CUT  P J  T  FUE  j  F  THE  UTILITY  "S  2x0  T  .  SCRUB/ T  OL"  . 

C  AA  *  AA  T  HE  OUTPUT  FILE  OF  THIS  UTILITY  WILL  BE  THE  FINAL  TOE  FILE 
Caa.a  AAUSED  TO  CREAT  THE  WARFHAH  H  A  T  R 1 X  OuANUTlES  BY  UNIT  AND 
CaaaaavUInERA&ILITY  CATEGORY. 

CAAAAATHE  PARENT  I'M  I  T  ( COMPANY  >  A«D  THE  PLSULIING  SUBUNI T « PL A T OON » 

Caaa AACREATEO  BY  This  UTILITY  MUST  BE  FURTHER  EXAMINED  AND  CHANGES 
CaaaaamADC  IN  CERTAIN  LIN  CODE  AuTH0RI2ED  QUANTITIES  WHFRF  THF 
C«*A*ATYPL  And  QUANTITY  of  these  itehs  does  not  match  ■ttu  the  real 
CAAA AAkORLO . 

Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

CAA AAA  VAR  I  able  DICTIONARY 


CaaaoavARIABLE  NAME 
Caa aaaSRC  1 
r 
C 
C 

CAA*  AASRC? 

C 

CaaAaaanOMEMI 

C 

CAA  A  DA  XNO“E  M2 

C 

CAAAAAi,RC3 

c 

C  *  *  A  A  A  L  IN 

c 

Caa  aaa  xl  I *.  (  1 1 

C 

C 

c  A A  A  w  A  IXQTY (  I  1 

c 

CA*  A  HAuNIu 1 
C 

CAAA**u'.ID2 


definition 

SRC  FPO“  INPjT  TILL  SHOWING 
TITLE  OF  UNITS  “lSSING  TUE  DATA  ON 
PLATOON  SI2C  UNITS. 

SRC  FPO“  TOT  MASTER  FILE 

TITLE  OF  UNIT  HAT  CHINS  SRC1 

TITLE  OF  UNIT  MATCHlNS  SRC  2 

USED  TO  CHECK  FOR  AN  SRC  NUMBER 

Pf.O  from  TOE  MASTLR  FILE 

USED  TO  STORE  LIN  CODE  FyR  OUTPUT 
TO  FINAL  TOE  STUDY  FILE 

COMPUTET1  PLATOON  LIN  CODE  QUANTITY 

SEQUENCE  N U m 3 E R  OF  UNIT  IN  FILE  UNIT  7 

SEQUENCE  NU“uER  OF  UNIT  IN  FILE  UNIT  P 


Caaaaaaaaaaaaaaaa*a*aaaaaaaaaaaaaaaaa*aaaaaaaaaaaaaaaaaaaaaaaaaA*aaa 

DIMENSION  I»„TY(7D0ni 
CMAWACT(.RA4  jMOI 
CHAR»CTER*4  jN 1 0  2 
CHARACTFRAS  ,RC1 
0HARACTERA9  jRC7 
LHARACTCRAJl  XN0«1 


Figure  III.  10. 3 
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l'NCL*SSirutJ***riLE  N  AMl  tb?XC  T  ELEMENT  NAME:T0E/An0-PLTS***UNCIAS51E1CD 


r» : 

CHARACTER931  X  nOM  2 

59: 

CHARACTEW*5  iRCJ 

60  i 

CHARACTER*t  LIN 

61 1 

CHARAC  TER*b  ALlNl?00u> 

62: 

ktADI7,100,El.0  =  9?)SRCl 

63: ICO 

FORMAT! 1 X , A  R ) 

6w  :  98 

KEA0!8,200,E:i0  =  99ISRC?,XN0M?,UnI0? 

65x200 

FORMAT 1A9 ,SX,A31 , AMI 

66:30 

TElSRCl.NE.5RCt> 

67  : 

6b :  35 
69:15 
70:201 
71 : 

7t  x 
73: 

7<*  : 

7S:202 
76: 
77x10 
Tb  : 


“THEN 

WRITE  19,200  )SRC2,XNOM2,UNl02 
KtAOl»,231,r.,0:95ISRC3  ' 
fORHAllAbl 

IE(SRC?.E%.*  •  t 

#  then 

R-:APia,2r21LlN,I0TY 
WRITE  (  9 , 232  I L I N , I GT  T 
FORMAT  ISX,Ab,2X,I<t) 

60  10  IE 

R£»i.'lj»?FjlSRC2«¥nOM?,UNl0? 
GO  TO  3C 


79  :  2r  HO 

«  J :  WRITE (9, pMc >SRC2,XN0M2 ,UNlDt 

f  l :  2?  1=1*1 


f  2 : 

f.3: 

F5: 

FbX 

■*7: 

HB : 

65 : 
90x*n 
91  x  *4  5 
“2 : 

“3:101 

cm  : 

e5 : 1 r? 
“u : 

«T  : 
r6  : 
c9 : 

ro: 
in : 
102: 
mssn 


RE  AD  I  L  ,2  Ti  ,£  NO  =<40  l  SRC  3 
lElSSr3.EC.*  *1 

T  ME  N 

KE ACir,2C?ltlN,l«TV 
XL»'HI>  =  LIN 
IXJTY  li l=I0TY/3*.‘ 
wMTt  1  »,232>LIN,ICTY 

GO  TO  25 

Ml  A0«r,200,f  6iC:9i,»S“C2,X!,0M?,UMl02 
11=1-1 

PC  AT  17,121  , ESP =90  1S5C1 ,XN0M1  ,1H,I D1 
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Figure  III.  10. 3  (Cont) 
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uNCLAt;:riCD*.*E;x4f'rLE  of  output  or  utility 
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Figure  III.  10. 4 
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UNCLASSIFICP***tXAMPLt  OF  INPUT  OA  TA  FILF  PL  AT  OC  NS  ••  »UNCL  A  IFIF  0 


i:  070A7H010  NtCH  INF  CO  ME25 

070A7H9X9  MUCH  INF  PLT  ME2B 

T:  17D37H010  TANK  10SMM  CO  AR51 

A!  17037H9X9  TANK  1CI5HH  PUT  AR52 

Ft  17  TO  7H  700  A  RMO  CAV  TRP  CA58 

f  :  17  307H9X9  A  RMP  CAV  PLT  CA59 

7:  AA767H50Q  HAWK  BRTY  A07A 

8:  AA267H9X9  HAWK  PLT  AD75 

S!  AA327H000  AOA  BRTY  VULCAN  AD7B 

10:  AA  327H9X9  ADA  PLT  VULCAN  AD79 

li:  AA323HD00  A OA  BTRT  CHAPARRAL  ADBO 

I?!  AA328H9X9  ADA  PLT  CHAPARRAL  A081 


Figure  III.  10. 5 
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Figure  111,  10,6 


CHAPTER  1 1 


UTILITY  -  RAM/MATRIX  OR  WIMP/MATRIX 

11.1  DESCRIPTION  OF  PROCESSING;  This  program  will  be  titled 
WlMP/MAtRIX  when  the  use  of  the  WIMP  is  involved  in  the  methodology.  The 
program  sums  the  equipment  items  by  vulnerability  category.  Otherwise  the 
functions  are  logic  tested  read  and  write  statements. 

11.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  process  and 
merge  data  from  three  files  and  develop  the  RAM/MATRIX.  The  RAM/MATRIX 
is  a  two  dimensional  array.  The  Y  axis  of  the  array  is  the  units  in  the  study 
identified  by  their  two  character  unit  codes  and  a  sequence  number.  The  X  axis  of 
the  matrix  consists  of  22  columns;  one  for  each  of  the  22  vulnerability  categories 
into  which  an  item  of  equipment  will  be  classified.  These  categories  are  used  to 
group  together  items  of  equipment  which  have  common  susceptibilities  to  indirect 
fire. 

The  interior  of  the  matrix  accumulates  for  each  unit  in  the  study  the  number  of 
items  of  equipment  the  unit  is  authorized  in  each  of  the  vulnerability  categories. 

This  RAM/MATRIX  data  file  of  unit  type  and  item  vulnerability  category  is  used 
as  input  to  other  modules  such  as  the  Target  Acquisition  Model  (TAM)  output  files, 
the  TOTAL/CATEGORY  utility  and  the  TOTAL/UNITS  utility. 

1 1. 1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  Figure  III.  11,1.  The  logic  followed  by  the  utility  is  pictured  in 
FIGURE  III.  1 1.2.  The  source  code  for  the  utility  is  listed  in  FIGURE  III.  1 1.3. 

11. 1.2. A  INPUT  DATA  AND  DATA  BASE:  This  utility  uses  three  data  files  as  its 
input.  One  file  is  the  ARRAYED/UNITS  file  which  was  prepared  manually  by  the 
study  analyst.  The  second  file  is  the  ITMID/FINAL  file  which  was  produced  by  the 
ITMID/REC-A  utility.  The  final  input  file  is  the  FINAL/TOE  file  which  was 
produced  by  the  TOE/ADD-PLTS  utility. 

From  these  files  the  utility  extracts  data  on: 

o  The  type  units  participating  in  the  study  Stylized  Array  (ARRAYED/- 
UNITS) 

o  Items  of  equipment  being  used  in  the  study  and  their  artillery  vulnera¬ 
bility  category  (ITMID/FINAL). 

o  The  authorized  allocations  of  items  of  equipment  to  units  (FINAL/TOE). 

Figures  III.  11.4  and  III.  11. 5  depict  the  file  layout  and  example  data  for  the 
ARRAYED/UNITS  plan;  Figures  3.9.5  and  3.9,7  present  the  file  layout  and 
example  data  for  the  ITMID/FINAL  file;  and  Figures  3.9.8  and  3.9.9  present  the 
file  layout  and  example  data  for  the  FINAL/TOE  file. 
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11.1.2.B  OUTPUT  DATA  AND  DATA  FILES?  -  The  RAM/MATRIX  file  is  the 
only  output  from  the  RAM/MATRIX  utility.  This  file  has  one  record  type 
consisting  of  the  unit  identification  code  and  the  22  occurrences  of  the  artillery 
vulnerability  categories.  As  the  utility  executes  it  examines  for  each  unit  type 
each  individual  item  of  equipment  which  it  has  been  authorized  and  determines 
the  equipment's  artillery  vulnerability  category  and  the  quantity  of  this  equipment 
this  unit  has  been  authorized  and  accumulates  in  the  vulnerability  category  for 
this  unit  the  quantity  of  items  authorized.  It  should  be  noted  that  the  emphasis  in 
this  process  is  on  unit  type  and  number  of  equipment  units  in  specific  vulnerability 
categories, 

regardless  of  the  specific  type  of  equipment. 

Figures  111.11.10  and  IIl.ll.ll  present  the  file  layout  and  examples  of  the  data 
found  in  the  file, 

11.12.C  DATA  ELEMENT  DICTIONARY: 

The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 
NAME  DEFINITION 

LIN1  A  6  character  alphanumeric  variable  which  identifies 

an  item  of  equipment  within  the  process.  The  utility 
has  established  this  variable  as  an  array.  Data  used  to 
fill  the  array  will  be  provided  by  the  ITM1D/FINAL 
file. 

LIN2  Same  as  UNI  except  the  variable  is  not  used  as  an 

array  and  its  source  of  data  is  the  FINAL/TOE  file. 

IVUL  A  2  character  integer  field  which  denotes  the  artillery 

vulnerability  category  in  which  th-*  item  of  equipment 
has  been  placed.  There  are  22  classes  of 
vulnerability.  This  data  is  supplied  by  the  ITMID/- 
FINAL  file.  This  variable  is  dimensioned  as  array  by 
the  utility. 

CODE  This  is  a  2  character  alphanumeric  variable  which  is 

used  to  hold  the  first  2  characters  of  the  4  character 
UNIT  ID  code.  This  variable  Is  dimensioned  as  an 
array.  It  is  provided  by  the  ARRAYED/UNITS  file. 

DUMMY  This  is  a  72  character  field  into  which  is  ready  data 

not  needed  by  the  utility  from  the  IYMID/F1NAL  file. 

ITEST  This  is  a  2  character  integer  variable.  It  is  used  when 

reading  the  FINAL/TOE  file  in  order  to  determine 
whether  the  current  record  is  a  header  record  contain¬ 
ing  unit  identification  data,  or  a  detail  record  which 
contains  data  on  items  of  equipment  and  quantity 
authorizations. 
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NCAT 


This  is  an  integer  variable  which  is  used  to  accumulate 
for  each  of  the  22  artillery  vulnerability  categories, 
the  total  quantity  of  units  of  equipment  being  played 
in  the  study  and  assigned  this  vulnerability  category. 
This  variable  is  calculated  in  the  utility  and  written 
out  to  the  RAM/MATRIX  file.  This  variable  is  dimen¬ 
sioned  as  an  array  of  22  members. 

I  This  is  an  integer  variable  which  is  used  to  count 

records  from  the  ITMID/F1NAL  file  as  they  are  read. 

NUN  An  integer  value  which  will  hold  the  total  number  of 

records  in  the  ITMID/FINAL  file.  NUN  is  equal  to  I- 
1.  It  is  used  as  the  upper  limit  in  a  following  DO 
LOOP. 

MM  An  integer  variable  which  is  used  as  a  subscript  in  the 

IVUL  array.  It  is  set  to  the  proper  vulnerability  cate¬ 
gory  of  the  item  of  equipment  being  processed. 

M,  II,  N,  NN  Various  integer  variables  used  as  subscripts  in  the 

utility. 

11.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTlVfi-8  operating  system. 

11.2.1  SUPPORT  SOFTWARE:  -  This  utility  requires  the  ASCII  FORTRAN 
compiler  and  the  UNIV AC  1100/82  system  facilities. 

11.2.2  I/O  DEVICES:  -  This  utility  uses  as  input  files  which  are  resident  on  disk 
and  in  turn  produce  as  output  files  that  also  will  reside  on  disk.  Refer  to  Volume  I 
for  the  program  runstream. 

11.3  MAINTENANCE  PROCEDURES: 

11.3.1  PROGRAMMING  CONVENTIONS;  This  utility  is  written  in  ASCII 
FORTRAN  and  takes  advantage  of  the  IF-THEN-ELSE  structuring  available.  The 
logic  structure  is  somewhat  disguised,  however,  because  of  the  lack  of 
indentation. 

11.3.2  INTERNAL  ERROR  ROUTINES:  -  There  are  no  explicit  error  handling 
routines  written  into  the  utility.  As  a  result  only  system  detected  errors  will  be 
identified  and  the  use  of  available  system  documentation  will  be  required  to 
correct  the  error  condition. 
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UNCLASSIFIED***F ILE  NAMC  582XGT  ELEMENT  NAMESR AH /MAT°IX*** UN CLASSIFIED 


i:c 
2:c 
3  :c 
a  :c 


•••••THIS  PROGRAM  IS  WRITTEN  IN  ASCII  FORTRAN. 


*:c ••••*••*•••*••••**••*•*••••*••****•••*•••••••••••*•*****•***•*•* •••**•• 

f  ;C  ••  ••  (THIS  UTILITY  IS  DESIGNED  TO  GREAT  THE  WARFRA*  (UNIT  PY  VULNER- 
7:C*****A8ILITY  CATEGORY!  MATRIX  FROM  THE  FINAL  TCr  FILE  .  ITHIC  FILE 
S  !C  **  **  *AND  THE  LIN  CODE  FT.LE.  THE  OUTPUT  OF  THIS  UTILITY  WILL  SERVE 
g  ;C •• •• *A  S  INPUT  TC  THE  TAM  DATA  FILE.  PROVIDING  THE  AUTHFRTITD  OUANTITIES 
1P5C***»*0F  EQUIPMENT! LIN  COOES)  FOR  EACH  TYPE  OF  UNIT  PY  22  ARTILLERY  VUL- 
11  :C***»»NERABILITY  CATEGORIES.  THE  RAM  WILL  USE  THIS  DATA  TO  CALCULATE 
12:C*****T0TAL  LOSSES  ATTRIBUTED  TO  RED  ARTILLERY  FIRE  DURING  A  29  HOUR 
13:C*****PERI0D  (STYLIZED  DAY)  F CR  EACH  OF  THE  22  ARTILLERY  VULNERABILITY 
l<t  IC ••  ** *C  ATEG  OR IES  ANO  EACH  OF  THE  FOUR  STYLIZED  COMBAT  POSTURES. 

15 :c •»***••*•**•••***•*•••*••••*•••••••••*•••••*•••• •*•*••••••»•**•****•**• 

16  ;c  ****•*•***••*••* « i*  •»•**••*••  •*••**•••••••••*••••  •••*•••••••*••***•••••• 

17SC*****VARIABLE  DICTIONARY 

18:C*****VARIASLE  NAME  DEFINITION 

195C  LINK  I)  LIN  CODE  FROM  ITMID  FILE 

20  :c 

21  SC  IVULN(I)  VULNERABILITY  CODE  FOR  LINl(I) 

22  ;c 

23  SC  DUMMY  (I)  USED  TO  READ  PAST  UNUSED  DATA 

2 it  JQ 

25  SC  ITEST  USED  TO  CHECK  FOR  UNTT  SRC  AND  TITLE  LINE 

26  SC 

2T  SC  LIN2  LIN  CODE  FROM  THE  TOE  DATA  FILE 

28  !C 

29  SC  I QTY  QUANTITY  FOR  LIN  CODE  FROM  TOE  FILE 


30SC 

31  SC 

32  SC 

33  SC 
39  SC 

35  SC 

36  SC 

37  SC 

38  SC** 

39  SC** 
90S 

91  S 

92  S 

93  S 
99  S 
95S10 

96  5 

97  5700 

98  S 

99  520 
50  5 

51S200 
525 
53  5 

59  5201 

55  530 

56  5 

57  59  0 


MM  US  ED  TO  SET  NC AT (MM ) TO  THE  CORRECT  VULNER¬ 

ABILITY  CATEGORYd-22)  FOR  WARFRAN 

NCAT(MM)  VULNERABILITY  CATEGORY  F QUIPMENT  TOTALS 

NLIN  EQUALS  TOTAL  NUMBER  OF  LIN  CODES  READ  IN 

FROM  ITMID  FILE 


DIMENSION  I  VU  LN  ( 2  00  0 )  «N  C  AT  (  22  ) 
CHARACTERS  OUHMY(IZ) 

CHARACTERS  LINK  2000) 

C  HARA  CTERS  LIN2 
CHARACTERS  CODE!  200) 

III=I  11*1 

READ! 7» 700* END: 20  I CODE!  Ill) 

FORMAT!  37X.A2) 

GO  TO  10 
1  =  1*1 

READ!  8»  200 .  EN 0=90  )L INK  Il.I VULN(I) 
FORMAT!  IX  •  A6>  39X.T2  ) 

DO  30  K=1 »8 

REAO( 8, 201. END: 90  )( DU MM  Y(L) .L  =  1.1Z I 
F  ORMA  T! 12 A6 ) 

CONTI  NUE 
GO  TO  20 
NLIN=  1-1 


Figure  HI.  1 1.3 
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UNCLASSIFIED. ••FILE  NAHC:B2XGT  ELEMENT  N ANE : R AM/M ATRI X* •» UNCLAS SIFIED 


ss:  READt 9. 203.EN0=99  IITEST 

59:203  F0RMATI47X.IZ) 

60:AS  READ! 9»  20  3,END:99IITEST 

fii:  I  F  t  ITEST.EQ.OI 

62:  .THEN 

635  REAn<U,204.EN0=99)LIN2. IGTY 

C4:204  F0RMAHSX.A5.2X.I4I 

6S:  DO  SU  M=1.NLIN 

eg:  ihlin:  imi.es. l in?) 

c7:  .then 

68:  MM=IVULN(M) 

69:  NCAT(MM)  =  NCAT(HM)*IQTY 

70:  END  IF 

7i:50  CONTINUE 

72:  ELSE 

73:  11=  HU 

74 :  WRITE (lU.30UiC00E (III .1 I»(NCAT(N)»N=1»2Z> 

75:300  F0RMAmX.A2. 12,2214) 

76:  DO  60  N  N-l  .  22 

77:  NCAT(NN)=0 

79:60  CONTINUE 

79:  E  NO  IF 

30 :  GO  TO  4  5 

31T9  9  I  is  II  *1 

32:  WRITE  110.300) CODE (II) ,1  I »( N CAT ( N I ,N  =  1 .22) 

33:  STOP 

34  :  E  NO 


Figure  III.  11.3  (Cont) 
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CHAPTER  12 
UTILITY  -  TOTAL/UNITS 

12.1  DESCRIPTION  OF  PROCESSING*  This  program  performs  logic  tested 
read  and  write  functions. 

12.1.1  PURPOSE/FUNCTlONSt  The  purpose  of  this  utility  is  to  determine  the 
total  number  of  units  by  unit  type  in  the  RAM/MATRIX  file  within  each  of  the 
four  stylized  posture  arrays.  These  four  stylized  posture  arrays  aret  Attack 
(AT),  Defense  Intense  (DI),  Delay  (Defend)  (DE)  and  Defense  Light  (Inactive) 
(DL).  This  utility  must  be  run  once  for  each  of  the  four  postures.  The  units  in  the 
posture  arrays  will  be  identified  by  a  second  input  file  which  is  created  by  the 
arrayers  for  the  RAM  analyst.  Each  of  the  four  runs  of  tius  will  produce  two 
output  files.  One  will  identify  units  in  the  postured  array  file  for  which  a  match 
on  a  corresponding  unit  in  the  RAM/MATRIX  could  not  be  made.  The  second  and 
main  output  form  this  utility  is  a  file  which  contains  each  unit  for  which  a  match 
between  the  two  files  could  be  made  and  the  accumulated  total  of  the  number  of 
this  type  of  unit  that  was  found  in  the  RAM/MATRIX  file.  Each  of  these  four 
TOTAL/UNIT  files  will  be  used  as  input  in  a  following  utility,  referred  to  as 
TOTAL/CATEGORY. 

12.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  seen  in  FIGURE  III.2.1.  The  logic  flow  found  in  the  utility  is  pictured  in 
FIGURE  III.  12.2.  The  source  code  for  the  utility  is  listed  in  FIGURE  III.12.3,  and 
III.  12.4  for  the  WIMP/TOTAL-UNITS  Version. 

12. 1.2. A  INPUT  DATA  AND  DATA  BASE:  This  utility  will  be  run  four  times; 
once  for  each  of  the  four  stylized  posture  arrays  that  are  used  in  the  study.  Each 
run  of  the  utility  will  use  the  RAM/MATRIX  file  and  one  of  the  four  posture  array 
files.  These  files  will  be  categorized  as  elements  under  the  current  study's 
general  file.  The  RAM/MATRIX  file  will  use  RAM/MATRIX  as  its  element  name; 
the  element  name  of  the  four  posture  files  must  be  obtained  from  the  RAM 
analyst. 

The  RAM/MATRIX  file  is  produced  by  the  RAM/MATRIX  utility  which  was  com¬ 
pleted  earlier.  The  purpose  of  the  file  is  to  identify  all  units  by  unit  type  appear¬ 
ing  in  the  study  arrays  and  specify  for  each  of  the  22  artillery  vulnerability  cate¬ 
gories  in  the  study,  the  total  number  of  units  of  equipment  which  were  grouped 
into  each  vulnerability  category.  The  present  utility  concentrates  on  the  unit  type 
portion  of  the  record  and  ignores  the  vulnerability  category  portion. 

The  second  input  file  used  by  this  utility  is  one  of  the  stylized  posture  array 
files.  This  file  is  supplied  by  the  RAM  analyst  who  also  should  be  contacted  for 
the  proper  element  name.  This  file  is  simply  a  listing  of  array  units  which 
includes  the  four  character  unit  type  codes  which  identify  the  unit  types  which 
can  be  found  in  this  particular  battle  posture  in  the  study. 

Figure  III.  12. 3  depicts  the  file  layout  and  data  examples  for  the  RAM/MATRIX 
files.  Figure  III.  12.6  depict  the  data  for  the  stylized  posture  array  file. 
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12. 1,2, B  OUTPUT  DATA  AND  DATA  FlLESi  -  This  utility  produces  two  mess 
storage  files  as  output  (or  each  oi  the  four  stylized  arrays.  One  details  those  unit 
types  which  were  expected  to  be  in  a  particular  posture  as  stated  on  the  posture 
array  input  file  but  were  not  detected  on  the  RAM/MATRIX  tile.  This  tile  is 
referred  to  as  the  MISSED/UNITS-XX  file  (Figure  Ul.12.7).  The  XX  portion  of  the 
element  name  must  be  changed  to  reflect  the  appropriate  posture  being  analyxed 
in  this  run)  i.e.,  AT,  Dt,  DE,  or  DL.  This  tile  uses  one  record  type  consisting  of 
one  four  character  field,  the  Unit  Type  Code  ID.  The  second  output  file  of  this 
utility  is  the  TOTAL/UNITS-XX  file.  This  is  the  major  output  from  this  utility. 
Once  again  the  XX  portion  of  the  file  name  must  be  changed  to  reflect  the 
posture  being  analyxed.  This  file  consists  of  one  record  type.  Each  record  is 
composed  of  2  fields.  The  first  field  is  the  four  character  unit  type  code 
Identifier.  The  second  field  in  the  record  is  a  four  character  integer  number 
which  denotes  the  total  number  of  this  particular  unit  type  that  was  found  in  the 
RAM/MATRIX. 


For  example,  line  1  of  Figure  1U.  12.8,  (the  data  example  of  the  TOTAL/UNITS 
file),  indicates  that  there  were  2  units  in  the  RAM/MATRIX  file  for  UNIT  TYPE 
L 197  in  the  particular  posture  array. 


The  file  is  cataloged  as  an  element  under  the  current  study’s  general  file. 

Figure  III.  12.7  presents  the  record  layout  and  examples  of  the  data  for  the 
MISSED/UNITS  -  XX  file.  Figures  III.  12,8  and  III.  12.9  portray  the  record  layout 
and  data  examples  for  the  TOtAL/UNITS-XX  file  from  the  two  program  sources. 

12.1.2.C  DATA  ELEMENT  DICTIONARY 

The  following  section  will  identify  and  define  all  variables  used  in  this  utility. 


NAME 

CODE1 

CODE2 

TUN1T 

I,  IJ,  IK,  IL 


DEFINITION 


A  4  character  alphanumeric  variable  which  will 
contain  the  Unit  Identification  code.  This  code  ident¬ 
ifies  the  unit  within  the  process.  This  value  will  be 
supplied  by  the  RAM/MATRIX  file.  The  variable  will 
be  used  as  an  array. 

Same  as  above  except  the  value  is  provided  by  the 
94STOREA  file. 

This  variable  will  be  used  to  accumulate  the  total 
number  of  units  which  are  identified  by  a  specific 
code. 

Various  integer  variables  used  as  subscripts  within  the 
utility. 
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12,2  OPERATING  ENVIRONMENT!  This  program  is  implemented  on  the 
EXECUTIVE'S  operating  system. 

\ 

12.2.1  rjQ PPORT  SOFT W AREi  -  This  utility  requires  the  FORTRAN  IV 
compiler  and  the  facilities  provided  by  the  UN1VAC  11Q0/S2  System. 

12.2.2  I/O  DEVICES;  -  This  utility  will  use  as  input  files  which  reside  on  disk 
and  will  subsequently  produce  as  output,  files  which  will  also  reside  on  disk.  Refer 
to  Volume  I  for  the  program  runstream. 

12.3  MAINTENANCE  PROCEDURESt  This  program  has  no  specific 
maintenance  procedures. 

12.3.1  PROGRAMMING  CONVENTIONS!  -  This  a  relatively  short  utility  that  is 
written  in  FORTRAN  IV.  As  such,  it  has  been  programmed  with  standard 
FORTRAN  programming  techniques. 

12.3.2  INTERNAL  ERROR  ROUTINES:  -  There  are  no  explicit  error  handling 
routines  written  into  this  utility.  However  if  unit  type  SRC  codes  in  the 
RAM/MATRIX  and  stylized  posture  array  file  (94  STORE)  do  not  agree  the  unit 
code  from  the  stylized  array  file  will  be  written  out  to  the  MISSED/UNITS  -  XX 
file. 


i 


total/units 

PROGRAM* 


MISSED/ 

UNITS 


-ATTACK 
-DI  \ 


-DE 


-DL 


THE  WIMP/TOTAL-UNITS  MAY  BE 
SUBSTITUTED  FOR  THIS  PROGRAM 


UNCL  AS  SI  FI  ED  •«  »F  ILE  NAME  582XCT  ELEMENT  NAME  t  TOT  AL/UNI  TS**  *UNCL  ASS  IF  IE  0 
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UNCLASS1F JtD***FlLE  f.  A  WE  si!  P*  I  HP  tl  EMENT  N  AMt  t  Wl»*P/TOT  AL-UN1 T  $***UNCL  A  S  S  IF  I E  0 


l!C*' 

3 s (.***•*  THIS  UTILITY  PROGRA“  IS  .RITTER  IN  FORTRAN  V. 


C******PROGRAMHER 

c****** 

C******CPT  SCCTT  E  CASTLON 

c****** 


3FEB81 


INITIALS 


SEC  * 


C*****PURPOSE  OF  THE  PROGRAWl 

C***** 

C  *****  THIS  UTILITY  IS  DESIGNEO  TO  READ  THE  Wiwp  INPUT  FILE 
C*****"UNITXXX"f  WHICH  PROVIDES  THE  LI S  T 1  NS  OF  ALL  SLUE  AND 
C*****REO  UNITS  ARRAYED  IN  THE  POSTURE  OF  INTFREST,  THE  R AM/MAI R I X 
C*****CATA  FILE  AND  TOTAL-UP  ALL  PLUE  UNITS  bY  TOP  TYPE. 

C****** 

C****»THIS  UTILITY  REPLACES  ICTAL/UNITS.  WHEN  THE  WIKP  IS  USED  IN 
C*****PLACE  of  warf  rah. 

C******************************************************** ********* 


C*****VARIAPLE  DICTIONARY 

c  **  **• 

C*****  VARIABLE  N'A*E  3 

J.*****CODE  A  ( 1 1  U 

C*****  I 

c****» 

C*****NCODEl  (I  1  U 

c*«**«  F 

c***«* 

C*****NTYPE  U 

C«****  F 

C***«* 

C*****L^oOE*(I)  U 

C***«*  F 

C***«* 

C *****  T UN  I T ( I  )  T 


DEFINITION 

UNIT  TYPE  ALPHA  CODE  DESCRIPTOR  FOR  EACH 
TYPE  UNIT  IN  THE  RAN/MATRIX  DATA  FILE. 

UNIT  TYPE  CODE  FROM  RAM/MATRIX  OAT* 

FILE. 

UNIT  COPE  USED  TO  IDENTIFY  SLUE  UNITS 
FRCP  RED  UNITS. 

UNIT  CODE  FROM  COSABE  STYLIZED  ARRAY  UNIT 
FILE  FOR  A  POSTURE. 

TOTAL  UNITS  TOR  EACH  TYPE  OF  UNIT  TOE. 


C***************************************************************** 

L*****READIN6  INTO  ONE  DIMENSION  ARRAY  TYPE  OF  UNIT  CODES  FROM 
t*****RAK/MAIFIX  DATA  F  ILF  , 


01  MEN  SI ( N  CO0EA (SOD  I .NCODEl (5  00  > , NCODE 2 ( SOPC > 

INTEGER  TUN  I T ( 5CG  I 
1C  11-11*1 

RE  AD  (7, 700.  ENDAJC!  CODE  A  (HI,  NCODEl  (II  ) 

7  CD  FORMATnx.AP.IJJ 
GO  TO  1C 

C ******** •«•***•**••****** **«•«**** ****************************** 
C*1 ********************** ************* ******** *************  ****** 

C*****READING  INTO  AN  ARRAY  THE  UNIT  CODES  FROM  THE  STYLIZED 
C**»**ARRAY  FOR  A  POSTURE.  v 


IK:1K  *  1 


Figure  III.  12. 4 
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UNCiAssiriE0«»»Ei<A9Ht  cf  THE  ouTruT  data  or  uTlLur  RAM/MATRlx»»*uNciA6STriro 
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CHAPTER  13 


UTILITY  -  TOTAL/CATEGORY 
AND 

WIMP/TOTAL  -  CATEGORY 

13.1  DESCRIPTION  OF  PROCESSING*  This  program  sums  the  categories  of 
equipment'  in  tHe  force  array.  Otherwise  logical  read  and  write  statements 
perform  the  program  functions. 

13.1.1  PURPOSE/FUNCTIONS;  The  purpose  of  this  utility  is  to  produce  the 
total  authorized  quantity  of  equipment  for  each  of  the  22  artillery  vulnerability 
categories  found  in  one  of  the  four  stylized  posture  arrays.  In  accomplishing  this 
function  the  utility  ir.  run  once  for  each  of  the  posture  arrays  using  the 
RAM/MATRIX  file  and  the  appropriate  TOTAL/UNIT-XX  file,  the  utility  will 
first  multiply  the  total  number  of  units  in  a  unit  type  as  specified  in  the 
TOTAL/UNIT-XX  file  by  the  number  of  items  of  equipment  in  a  particular 
vulnerability  category  as  specified  in  the  RAM/MATRIX  file.  The  final  step  in 
this  process  is  to  determine  the  total  number  of  items  of  equipment  in  each  of  the 
22  vulnerability  categories  by  summing  each  of  the  categories  across  ail  unit 
types.  The  result  will  be  an  array,  22  entries  in  length,  one  entry  for  each 
artillery  vulnerability  category  and  the  total  number  of  items  of  equipment 
authorized  for  that  category  for  a  specific  posture. 

13.1.2  PROGRAM  INPUT/OUTPUT  STRUCTUREt  The  structure  of  the  utility 
is  displayed  in  FIGURE  III.  13.1  The  logic  flow  found  in  the  utility  is  shown  in 
FIGURE  III. 3.2.  The  source  code  for  the  utility  is  listed  in  FIGURE  III.  1 3.3;  Figure 
III. 1 3.4  is  the  source  code  for  the  alternate  version  of  the  program,  WIMP/TOTAL- 
CATEGORY. 

13. 1.2.  A  INPUT  DATA  AND  DATA  BASE;  There  are  two  input  files  required  to 
run  this  utility.  Both  files  will  be  cataloged  as  elements  under  the  general  file  for 
the  current  study.  The  first  file  is  the  RAM/MATRIX.  This  file  details  for  each 
unit  in  the  study  the  number  of  items  of  equipment  that  the  unit  has  been 
authorized  classified  in  the  22  artillery  vulnerability  categories.  The  second  file 
used  as  input  will  be  one  of  the  TOTAL/UNIT-XX  files.  This  file  will  denote  the 
total  number  of  unit  types  found  in  the  particular  posture  array. 

Figure  III.  13.5  depicts  the  record  layout  for  the  RAM/MATRIX  file  and  examples 
of  its  data.  Figure  III.  13.6  depicts  the  record  layout  and  data  examples  for  the 
TOTAL/UNITS-XX  file. 

13.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  The  TOTAL/C ATEGORY-XX  file 
is  the  only  output  file  from  each  run  of  this  utility.  As  with  the  TOTAL/UNITS 
utility  the  TOTAL/CATEGORY  utility  must  be  run  four  times;  once  for  each  of 
the  four  posture  arrays  of  the  study. 

The  output  file  will  have  one  record  type  and  be  limited  to  22  records;  one  for 
each  of  the  22  artillery  vulnerability  categories  of  the  study.  Each  record  will 
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consist  of  one  seven-digit  integer  field.  This  field  will  contain  the  total  number  of 
items  of  equipment  found  in  a  specific  posture  array  for  a  single  vulnerability 
category.  For  example  in  Figure  III.  13. 7  line  3  Indicates  that  4,060  items  of 
equipment  are  being  played  in  this  posture  which  have  been  assigned  an  artillery 
vulnerability  category  of  3. 

These  22  totals  in  this  posture  will  become  the  denominators  of  the  equation 
which  will  be  used  to  determine  the  WARFRAM  loss  rates  within  a  posture's 
stylized  array.  The  RAM(WARF)  simulation  runs  for  jail  costume  will  provide  the 
number  of  equipment  items  lost  by  vulnerability  category.  These  figures  will  be 
used  as  the  numerators  in  the  equation.  These  loss  rates  will  be  manually  compu¬ 
ted  and  entered  into  the  element  "CONTROL/TEMP'  of  the  current  study's  gen¬ 
eral  file  and  be  used  as  an  input  file  to  a  subsequent  utility. 

Figures  III.13.S  and  presents  the  file  layout  and  data  temples  for  thr 
WIMP/TOTAL-CAT-XX. 

13.1.2.C  DATA  ELEMENT  DICTIONARY! 

The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 


NAME 

CAT 


VULCAT 


TUNITS 


K,  KK,  L,  33, 
KM,  LN,  LL,  NN 


DEFINITION 


An  integer  variable  which  is  established  as  an  array  of 
22  occurrences;  one  occurrence  for  each  of  the  22 
artillery  vulnerability  categories.  In  each  occurrence 
is  accumulated  the  total  authorized  quantity  of  equip¬ 
ments  in  the  study  which  have  been  assigned  this 
vulnerability  classification. 

This  is  an  integer  variable  which  is  established  as  a  2 
dimensional  array  within  the  utility.  The  first  dimen¬ 
sion  of  the  array  will  vary  for  each  type  of  equipment 
in  the  study  and  that  was  identified  in  the  UNCODE/- 
LIST  file.  The  second  dimension  will  identify  the 
artillery  vulnerability  category  which  this  type  of 
equipment  has  been  assigned.  Into  the  appropriate 
category  for  a  particular  type  of  equipment  will  be 
entered  the  total  authorized  quantity  ol  equipment. 
These  quantities  are  then  multiplied  by  the  total 
number  of  units  to  determine  the  total  number  of 
items  being  played. 

This  is  an  integer  variable  which  identifies  the  total 
number  of  units  of  a  specific  type  being  played.  Since 
this  utility  is  calculating  the  total  number  of  items  in 
each  vulnerability  category  no  attention  is  paid  to  the 
type  of  unit  being  processed.  This  data  is  supplied  by 
the  TOTAL/UNITS  file. 

Various  integer  variables  used  as  subscripts  by  the 
utility. 
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13.2  OPERATING  ENVIRONMENT  This  program  is  Implemented  or;  the 
EXECUTIVE-8  operating  system. 

1 3.2. 1  SUPPORT  SOFTWARE  t  This  utility  requires  the  FORTRAN  IV  compiler 
and  the  UNI  VAC  1100  system  facilities.  Refer  to  Volume  I  for  the  program 
runstream. 

13.2.2  I/O  DEVICES  s  This  utility  uses  as  input,  files  which  reside  on  disk  and 
produces  as  output  files  which  will  also  reside  on  disk. 

13.3  MAINTENANCE  PROCEDURES*  There  are  no  special  maintenance 
procedures  developed. 

13.3.1  PROGRAMMING  CONVENTIONS  t  This  is  a  relatively  compact  utility 
written  in  FORTRAN  iV  and  follows  those  normally  found  in  FORTRAN 
programming. 


13.3.2  INTERNAL  ERROR  ROUTINES:  The  utility  has  no  explicit  error 
routines  written  into  it.  As  a  result  only  errors  detected  by  the  system  and  the 
appropriate  error  messages  will  be  provided  in  order  to  correct  problems. 


UNCLASSlFIEORPPFILC  NAME:B2XQT  CLEMENT  NAME  S 10 1  Al /C  A  U  GOR  V***UNCL  ASS  IT  I  E  D 


♦  •THIS  PROGRAM  IS  WRITTEN  IN  TOR  T  RAN  IV. 


£•♦•••••*••• 

C ♦♦•••PURPO  S 
(♦♦♦♦* 

C**#*#THIS  U 
C*****CQUIPM 

c*****founo 

C*****  THE  OU 
^♦♦♦♦ThE  to 
^♦♦♦♦1S  MUL 
^♦•••AUTHOR 
C*****F OR  EA 
C*****THC  OU 
C**99*F0UND 
C ** ♦**  ART  ILL 

c***#*these 

^♦♦♦•WARTRA 
(^••♦♦CATEGO 
C«*»*»1HE  ra 
C*****YHC  nu 
C*****SER VE 
(^♦♦•♦EACH  c 
C*****ARE  CO 
C****#ELEMEN 
(;•«*«•**•«** 
£«**••••***• 
C****»VARIAB 
(.♦•♦•♦VARIABLE  NAPE 
C***»*VULCAT(I,J1 
C 
C 
C 

C  **•*• TUN ITS 
C 
C 

c*a***cat  m 
c 
c 


♦♦PURPOSE  OF  PROGRAM: 

>♦♦ 

♦♦THIS  UTILITY  PRODUCES  THE  TOTAL  AUTHORIZED  OUANTITV  OF 
•♦EQUIPMENT  FOR  EACH  OF  THE  22  ARTILLERY  VULNERABILITY  CATEGORIES 
♦♦FOUND  IN  A  POSTURE'S  STYLIZED  ARRAY. 

♦♦THE  OUTPUT  OF  UTILITY  '*82XQT . T OT AL /UNI TS" .  WHICH  PROVIDES 
♦♦THE  TOTAL  NUMBER  OF  EACH  TYPE  OF  UNIT  IN  A  STYLIZED  ARRAY 
♦•IS  MULTIPLIED  TIMES  THE  TOTAL  QUANTITY  OF  EQUIPMENT 
♦•AUTHORIZED  IN  EACH  OF  THE  2?  ARTILLERY  VULNERABILITY  CATEGORIES 
♦♦FOR  EACH  TYPE  OF  UNIT  FOUND  IN  THE  POSTURE'S  STYLIZED  ARRAY. 

♦♦THE  OUTPUT  OF  THIS  UTILITY  IS  A  TOTAL  QUANTITY  OF  EQUIPMENT 
♦♦FOUND  IN  A  POSTURE'S  S1VLIZED  ARRAY  FOR  EACH  OF  THE  22 
♦•ARTILLERY  VULNERABILITY  CATEGORIES. 

♦♦these  totals  then  become  the  denominators  in  determining  the 

•♦WARFRAN  LOSS  RATES  FOR  TACH  OF  THE  22  ARTILLERY  VULNERABILITY 
♦♦CATEGORIES  WITH  IN  A  POSTURE'S  STYLIZED  ARRAY. 

♦♦THE  RAM  (WARFI  SIMULATION  RUNS  FOR  EACH  POSTURE  WILL  PROVIDE 
♦•THE  NUMBER  OF  ITEMS  OF  EUUIPMENT  LOST  BY  CATEGORY.  WHICH  WILL 
♦♦SERVE  AS  THE  NUMERATOR  IN  COMPUTING  THE  WARFRAM  LOSS  RATES  IN 
••EACH  CATEGORY  FOR  AN  ARRAYED  POSTURE.  THE  8B  WARFRAM  LOSS  RATES 
••ARE  COMPUTED  MANUALLY  AND  EDITED  MANUALLY  INTO  THE 
•♦ELEMENT  "CONTROL/TEMP"  OF  THF  WARF  STUDY'S  PROGRAM  FILE. 
*•••»******•*»***«**•*•******««•»****+•**•**•******•*••***»•••*•♦**•• 
*♦•♦♦•♦••♦♦♦•♦♦♦♦••♦♦♦*♦♦••••♦••♦•♦♦♦•••♦• ••••♦♦♦^•♦•♦♦•^ •••••♦♦••••• 
••VARIABLE  DICTIONARY 


DEFINITION 

AUTHORIZED  TOE  EOUIPHENT  COMPATABLE 
WITH  WARF  STUDY'S  UN  CODE  LIST 
IN  EACH  VULNERABILITY  CATE60RV . 

TOTAL  NUMBER  OF  UNITS  BY  TYPE 
OF  UNIT  TOE. 

TOTAL  AUTHORIZED  TOC  EQUIPMENT 
BY  VULNERABILITY  CATEGORY  FOR 
THE  ENTIRE  ARRAYED  POSTURE. 


C ♦♦♦♦♦*♦•••••••*••♦•♦♦•••♦•«•••«••♦♦••**••♦••♦••••••••♦♦• •*••♦• 

c ♦•♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦•••♦♦••♦••••♦♦♦♦♦♦•♦••♦•••♦•♦••••••• ♦♦••••• 

INTEGER  VUICAT (SCO ,22 1 ,CATI?3> 

C *«**«»**«•*••♦••♦♦••♦•*♦♦•♦♦*«*•♦♦♦*♦♦**••♦*♦♦*•*•**••♦•♦♦**♦♦ 

C*w***READING  IN  AUTHORIZED  EQUIPMENT  BY  TYPE  UNI  T /VUL NER AB ILI  T Y 
{^♦•••CATEGORY. 

c ♦♦♦♦•♦♦♦**♦•••••*♦••*•*•♦*••••••*••••*••*•••••••**•*•*•••♦••♦«♦ 

IC  K=K«1 

RE  ADI  7,700, EL 0  =  99  I IVULCATIM,L1.L=1,22> 

700  FORMAT ItX  ,2219  I 
GO  TO  1C 


C*9**9WE  AGING  IN  TOTAL  NUMBER  OF  UNITS  BY  TYPE  IN  THE  ARRAY. 

(♦♦♦♦♦•♦♦•••••••••*•••*••••••••••••*•••*••*••♦•••••••••••••4 

99  KK  =KK  *  1 

RrADi8,fioo»£ no =97it units 


Figure  III.  1 3. 3 
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UNCLASS1F1ELAA4F1LT  NAME :  62 AQT  ELEMENT  NAME S T OT AL /CATEGOR Y***UNCL A SS 1 F 1 E D 
S6:6C0  FORMAT  I  fa  X  ,14  I 

59SC************** ****••****•**♦***•*************•*• *•*••***•* 

faO:C*****MULTlPLYl NO  TOTAL  NUMBER  OF  UNITS  BY  TYPE  TIMES 
fal  :C*****AUTHORIZEO  EOUIPMENT  PER  VUL NE R AB 1 L I T V  CATEGORY. 

62  :C************* ••*****•***••«*•*** A************************* 

62:  DO  20  JJ-]  ,22 

69:  IF (VULCAT  <KM ,  J  J I.CQ.OIGO  TO  20 

faSt  VULCAT IKK  ,JJ>=VULCATtKK,JJ)*TUNITS 

66:20  CONTINUE 

67t  GO  TO  99 

<,6 :£••*••*««•***••*************»*******••**•»*****••*••*••**** 

69:C*****T0TAL JNG  UP  VULNERABILITY  CATEGORY  FOR  ALL  UNITS  IN 
70tC*«**«THE  ARRAY. 

7 1 ;C  ******* ♦•♦••••••♦••♦•♦•••A******** ***************** ••****• 

72:98  KM=K-1 

73:  DO  30  LL=I,22 

74:  GO  40  LN=1,KM 

7S :  CATILLIrCAT ILL  I 'VULCAT (LN,Ll  I 

76  :4  fl  CONTINUE 

77:30  CONTINUE 

78  :£*****♦•  ******  ••****•  a*****  *******  ♦♦•♦A********'****’*  ******* 

79:C*****UR1TIN6  OUT  TOTALS  BY  VULNERABILITY  CATEGORY  FOR  THE 
80:C*****ARP AY  . 

8l:C**************************** ************ ****************** 

82:  DO  SO  NN=],22 

83:  WRITE (V.9C0ICAT (NNI 

84:9ro  FORMA  T 1 1 7  I 

8S :SC  CONTINUE 

8b:  STOP 

87:  END 


Figure  III.  13, 3  (Cont) 
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NCLASS1T  irU***FUl  NAPu«*2XCT  ELEHrNT  NAHEijTMP/TCTAL“CAT***UNCL*S5IF1CD 


1  :(;«•••****••******•**•*••***»****•*•*•••••••••***•»• 

tC** ************** ****•♦***•*♦• ♦**♦****•  •••*••«•«»•• 
j  } C**  *  **  TH  1 S  UTILITY  PROOF AM  IS  kRITTfl.  IN  FOSI’AN  V. 
ASC***************************-^********************** 


5 :*'**•*•**••**•••*«»•***•***••*•**«*«**•*»•••»••••**•••»*••*•»*** 

dSC*****PROGRAMM£R  DATA  INITIALS 

7  :c****» 

b  :C*****CPT  SCOTT  E  CAI.TLON  tFCtJPl  SEC 

V  JC<>**** 

lU:C*****************w**********************»********************** 

11  sc********** *•***•***•*****••***••••*«•••*•••»»*•«**•*•*****•**»• 

12 :C*****PURPOS£  OF  PUOGRAN  s 


13:C***** 

It SC»****TH1S  UTILITY  IS  DESIGNER  TO  TOTAL  THE  LUANT1TIES  Or  EOUlPHENT 
1£>:C*****AUTH0RI2L0  all  slue  units  WITH  in  an  ARRAYED  POSTURE  9t 
1 1>  : C***«*  T  HE  22  ARTILLERY  VULNERADIlI T Y  CATEGORIES.  THE  FIRST 
17:C***** CATEGORY  FOP  PERSONNEL  IS  SET  TO  ZERO  AND  NOT  EFFECTED 
IS  :C*****PY  THIS  utility. 

19? c***** This  utility  uses  input  froh  two  utiliiies  ••lihp/hatrixm 
?E:C*****AnD  ,,WlMP/TOUL-UN!TS,‘.  ThE  OUTPUT  DATA  CREATED  By  THIS 
71 SC**«**UT1LITY  IS  USE  0  PY  THE  UTILITY  **R!  HP/LOS S -R A 1ESM  TO  COMPUTE 
T2:C*****THE  Slut  LOSSES  BY  ARTILLERY  VULNE RAdlLlTY  CATEGORY  TO  RED 
2JsC*****ARTILLfRY  FOii  A  POSTuRL  .  THI*  UTILITY  BUST  PE  PUN  ONCE 
2t  s  C  *• *  **FOF  EACH  ST  vLl 2CO  POSTURE  ARRAY  HE.  ATTACK,  DEFENSE  INTENSE. 
2ssc*****oflay  and  rrfENSE  light. 

?t  s c*** •* 


27 SC*****THIS  UTILITY  REPLACES  UTILITY  "TOTAL/CATEGORY"  WHFN  the 
2*  S  C***  **W  IhP  IS  JSEP  I N°L  ACE  OF  LARF  RAH. 


SC*****VARIABLE  dictionary 
72 SC*****YARIABLL  nape  DEFINITION 

7 3  s  C*** •* 


Jm :C»****VULCA  t II .j» 
TStC***** 

7 1,  :c****« 

77 :C***»* 

7 o  ;C***»* 


AUIH0PI7ED  TOE  r  kIJI  PHE  N  7  PLACED  IN 
THE  <7  PERSONEL/EOUIP«ENI  ARTILLERY  VULNER¬ 
ABILITY  CATfuORTES  FOR  EACH  TYPE 
OF  UNIT. 


7V  ;  C***  **  TIM  T  S  TOTAL  NL'HPFF  OF  UNITS  BY  Typ[  OF 

tSlC*****  TOE. 

“1 ;C«**** 

<*2  :C«****NFtRS  DUMHY  VARIABLE  USED  TP  StT  CATEGORY 

A3:C*****  CINE  ItERSONNuLI  TO  ZERO. 

<*t :  C**»  ** 

t  S : C** * **C  A  T  1 1  I  TOTAL  AUTHORIZED  TOE  ESUlpPENT  PY 

tb:c*****  ARTILLERY  VULNERABILITY  CATEGCRY 

1 7  :C**»  **  FOR  ALL  SLUE  UNITS  IN  THl  STYLI7ED 

*>6:C*****  POSTUPE  ARRAY, 

1 9  :c«**** 


C*****«C  APING  IN  ThE  AUTHORIZED  CQUJP“LNT  ,>Y  T  V  °E  UNIT 
C*****lNO  VULNERABILITY  CATEGORY. 

C** ************** **•*•*<*♦***•*•*•*•******•**• ********* 


Figure  111.13.4 
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NCLASSIFHO***'lLt  NJ^uSe.'fcCT  CLCMENT  NAME  i  .  I  MP/T  0  TaL  -CA  T  •»*l»NCL  ASS  I F  1  t  D 

«,e  :C ••**»•*•  •* *•*<**************** ***•*•*♦ ************** ****•*•••»**** 

S  V  1 10  k:k»i 

fZi  Rf  AO  |  7 ,7jr;,r.s0:99)  «  VUICAT  IK  ,L  >  ,  L-l  ,  ?2» 

MsT^O  FORMAT  i7x»»rm  I 

*•;*  fcO  to  io 

M!CM*M**MM»«.***J*»****M«A*t****M*M*M**»»»***M*******M*M** 
*m:C ****************************** p******************************1***** 

r-S  :C*****»'EA01  NO  IN  7jTAL  NUMBER  0  T  UNITS  BY  TYPE  IN  THE  ARRAY. 

• b  !C»** **  <.*********•*♦**••**********•****♦ ******* ******* **♦****♦***•»♦ 

to  :99 
*9t 
70 :8C0 


K  K  R  H  K  ♦  l 

RCACIP  ,8J0,r nOrRR ITUNITS  • 
FORMA  T  I  C  X  .  I  *■  I 


71 

7.’ 

73 

7S 


77 

7o 

■»s 

F  _ 
F  i 

F  3 

CN 

«0 

cb 

c  7 
*b 

PS 

®1 

9.! 

93 

PM 

c5 


C»****kULT1RLYING  THE  TOTAL  NUMBER  OF  UNITS  BY  TYPE  TIMES 
C**«  w*  THE  AUTHoRI.’EO  quantity  of  equipment  for  each  vulner- 
C*****A?LITY  CATEOjRY. 


?? 

c*< 


DO  22 

IFIVULCATIKP. J J I.EC.OluO  TO  ?0 
VULCAT IKK  ,  JJ1 =VULCA  T I KK , JJI*I UNITS 
CONTINUE 
GO  TO  vS 


C***  **  TOT  AL I NG  UP  THC  FJOJPKCNT  ;!Y  VULNE  RA3 1 L I  T  Y  CATEGORY 
C*****FOn  ALL  UNITS  IN  THE  STYLUEO  POSTURE  ARRAY. 

»««»•*«*****«««•**%«*•***••««•••«*•**••*•*«••*****•*«**»•*•*•***«« 


98 


M  " 
I” 


K"=K-I 
DC  3:  LL  A  1 . ?& 

DC-  M j  L’.Rl.Krt 

GAT  ILL  »:CAT  <kU«VUl  CAT  UN  «LL  ) 

CONTINUE 

CONTINUE 


97:C******rlTlNG  OUT  I  ME  EERO  VALUE  IN  CATEGORY  one  ifersonnelt. 
°e 
99 

iro 
;ci 
1  "2 
1"3 
10m 

its 

irt. 

1  “  7 

irs 

l"j* 

no 
in 
lie 
113 


NFEHS:  ’ 

rPITE  19 ,90C  I  .PE9S 
!:SEO  FORMAT  1171 


•  C«****i.RITI  NO  OUT  aOU  I PMENT  TOTALS  TOR  VULNERABILITY  CATEGORIES 
:C*****TLO  THROUGH  IWCNTY-THREE  EjR  THE  ENTIRE  ARRAY. 


!$0 


co  s;  m» z i , 2 1 

V.P1TE  I'‘,900ILAT«NN| 
CONTINUE 
STOP 
G  NO 


Figure  III.  13.4  (Cont) 
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CHAPTER  14 


UTILITY  -  SEARCH/ENG  AGEREP 

14.1  DESCRIPTION  OF  PROCESSING:  The  program  perforins  multiple 
computations  on  the  data  based  upon  combat  posture  and  scenario  time  periods. 
The  program  makes  calls  to  two  subroutines. 

14.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  .this  utility  is  to  determine  the 
fraction  of  time  spent  by  the  U.S.  Force  in  each  of  the  four  combat  postures  in 
each  of  the  seven  time  periods  of  the  study.  The  four  combat  postures  are 
Attack.  Defend  (Defense  Intense),  Delay  and  Defense  Light  (Inactive).  The  seven 
time  periods  of  the  study  are: 

PERIODS 

1  2  3  4  5  6  7 

DAYS  1-15  16-30  31-60  61-90  91-120  121-150  151-180 

In  order  to  determine  this  fraction  of  time  the  utility  uses  as  its  only  input,  the 
Engagement  Report,  which  is  produced  by  the  Concepts  Evaluation  Model  (CEM) 
theater  simulator.  This  file  may  either  be  found  on  magnetic  tape  or  on  mass 
storage.  Depending  on  the  location  of  the  file,  a  different  runstream  will  be  used 
to  execute  the  utility. 

The  output  from  this  utility  will  be  a  mass  storage  file  "SCENARIO-XX"  which 
will  be  used  as  input  to  the  following  utility  "CONTROL/COMPILER". 

14.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  displayed  in  Figure  111.14.1.  The  flow  of  logic  found  in  the  utility  is 
pictured  in  Figure  III.  14. 2  and  Figure.  14.2  A.  The  source  code  of  the  utility  is 
listed  in  FIGURE  III.  14.3;  the  subroutines  source  code  are  contained  in  the  same 
program  file  element  as  the  driver. 

14. 1.2. A  INPUT  DATA  AND  DATA  BASE:  The  SE ARCH/ENG AGEREP  utility 
has  one  input  file,  the  ENG  AGEREP.  This  file  is  an  output  of  the  Concept 
Evaluation  Model  (CEM)  which  is  a  low  resolution  theater  simulation  model.  The 
ENGAGEREP  will  contain  information  on  not  only  U.S.  forces,  but  NATO  and 
other  non-U. S.  forces.  Therefore,  one  of  the  functions  of  this  utility  is  to  screen 
out  all  data  which  does  not  pertain  to  the  U.S.  forces. 

The  file  is  composed  of  three  basic  record  formats.  The  first  record  format 
identifies  that  portion  of  the  total  force  and  the  particular  day  being  analyzed. 
The  second  record  format  details  the  total  time  spent  by  the  Blue  forces  in  one  of 
the  9  combat  missions  during  this  specific  time  period;  i.e.,  15  days.  The  third 
record  type  specifies  the  fraction  of  time  spent  by  U.S.  forces  during  this  time 
period  in  one  of  the  four  combat  postures;  i.e.,  Attack,  Defend  (Defense  Intense), 
Delay  or  Defense  Light  (Inactive). 
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If  the  CNGAGCREP  file  is  currently  active,  it  will  be  found  on  the  public  mass 
storage  device  under  the  current  study’s  program  file  using  the  element  name 
"ENGAGEREP".  If  the  file  has  been  Inactivated,  It  can  be  found  on  magnetic 
tape.  The  proper  tape  number  and  location  on  the  tape  can  be  obtained  from  the 
CEM  Operator/Analyst. 

The  record  layout  is  discussed  in  Volume  1.  Because  of  the  voluminous  quantity  of 
the  ENGAGEREP  sample  data,  no  example  is  provided  here. 

14.1.2. B  OUTPUT  DATA  AND  DATA  FILES*  This  utility  produces  one  file  as 
output  called  the  SCfihJARIO/XX.  The  "XX"  portion  of  this  name  will  be  changed 
to  reflect  the  appropriate  CEM  run  control  number  as  provided  by  the  CEM 
Operator/Analyst.  The  SCENARIO/XX  file  will  be  used  as  one  of  the  five  input 
files  to  the  CONTROL/COMPILER  utility  which  follows: 

The  SCENARIO/XX  file  will  contain  information  which  describes  the  total  time 
spent  by  U.S.  forces  in  each  of  the  nine  combat  missions  and  the  fraction  of  the 
total  time  spent  in  each  of  the  four  combat  postures.  This  information  is  provided 
for  each  of  the  seven  time  periods  in  the  study.  (It  should  be  noted  that  the 
capability  does  exist  to  express  this  information  for  an  additional  3  time  periods.) 

The  SCENARIO/XX  file  uses  3  record  formats  to  identify  and  describe  each  of  the 
seven  basic  time  periods  in  the  study  and  the  distribution  of  the  total  time  U.S. 
forces  spent  within  each  of  the  various  nine  combat  missions  and  the  fraction  of 
the  total  time  spent  within  each  of  the  four  combat  postures.  The  file  further 
summarizes  at  the  end  of  the  file,  the  fraction  of  time  spent  in  each  of  the  four 
combat  postures  for  ten  time  periods. 

Figure  III.  14.4  presents  the  file  layout  for  the  SCENARIO/XX  file  and  examples  of 
the  data  in  the  file. 

14.1.2. C  DATA  ELEMENT  DICTIONARY: 

The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 

NAME  DEFINITION 

LINE  A  real  variable  established  as  an  array  in  the  utility. 

It  is  used  as  a  dummy  variable  into  which  the  first  18 
characters  from  the  input  record  are  read  and 
compared  to  the  Constant  Code  in  order  to  screen  out 
non-US  data. 

CODE  A  Constant  dimensioned  at  3  members  and  assigned 

the  following: 

CODE  (1)  =  "BLUE" 

CODE  (2)  =  "PART  1" 

CODE  (3)  =  "TION  1" 

ICYCLE  An  integer  variable  which  identifies  the  day  being 

processed. 
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(LOOK 


QREAD 

BLUE15 


BLUE  30 
BLUE  90 

TOTAL 


TEMPI 


TEMP 


ANSWER 


An  integer  variable  which  is  assigned  the  value  of  the 
last  day  of  the  current  time  period  being  analyzed,  it 
is  used  to  control  various  breaks  and  subsequent  dis¬ 
patching  within  the  program. 

This  is  the  name  of  a  subroutine  in  the  program. 

A  real  variable  dimensioned  at  9.  Each  entry  in  the 
array  will  contain  the  total  time,  expressed  in  hours, 
spent  by  BLUE  forces  in  this  15  day  period  in  each  of 
the  9  combat  situations  in  which  a  force  can  find 
itself.  It  should  be  noted  that  these  9  combat  classifi¬ 
cations  are  simply  a  finer  breakout  of  the  4  combat 
postures. 

Same  as  BLUE1 5  except  they  reflect  30  and  90  day 
periods  respectively. 

A  variable  used  to  accumulate  the  total  amount  of 
time  spent  in  all  of  the  9  combat  situations.  This 
value  will  be  used  as  the  denominator  when  calculating 
fractions  of  total  time  spent  in  various  situations. 

A  single  dimensioned  array  of  9  occurrences.  This 
array  :s  used  to  hold  the  amount  of  time  spent  by  US 
forces  in  each  of  the  9  combat  situations  as  they  are 
read  in  from  the  ENGAGEREP  file. 

An  array  of  4  members  »hich  is  used  to  hold  the 
fraction  of  time  spent  by  US  forces  in  each  of  the  4 
combat  postures.  This  data  is  read  from  the 
ENGAGEREP  file. 

This  is  an  array  of  2  dimensions.  The  first  dimension 
will  have  10  occurrences;  l  for  each  of  the  maximum 
of  10  time  periods  that  can  be  analyzed  in  the  study. 
The  second  dimension  will  identify  each  of  the  4 
combat  postures  that  the  BLUE  forces  can  assume. 
Entries  in  the  array  will  state  for  each  time  period  the 
fraction  of  time  spent  by  forces  in  each  combat  pos¬ 
ture.  This  fraction  will  be  a  derived  value  based  upon 
the  absolute  time  spent  by  forces  in  each  of  the  9 
combat  conditions  found  in  the  arrays  BLUE15,  BLUE- 
30  or  BLUE  90  discussed  above.  These  answer  values 
will  be  derived  following  these  schemes: 

ANSWER(X, ATTACK)  --  The  sum  of  the  time  spent  in 
the  first  three  combat  conditions  plus  1/2  of  the  time 
spent  in  the  4th.  This  summed  value  is  then  divided  by 
TOTAL  in  order  to  obtain  the  fraction  of  time  spent. 
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ANSWER(X, DEFENSE  INTENSE)  =  The  sum  of  the 
time  spent  in  the  5th  and  6th  combat  conditions  plus 
1/2  of  the  time  spent  in  the  4th.  This  summed  value  is 
also  divided  by  TOTAL  to  derive  the  fraction  of  time 
spent  in  the  second  combat  posture. 

ANSWER(X, DELAY)  =  The  time  spent  in  the  7th 
combat  condition  divided  by  TOTAL. 

ANSWER(X, DEFENSE  LIGHT)  =  The  sum  of  the  time 
spent  in  the  8th  and  9th  combat  conditions  divided  by 
TOTAL. 

PREV30  A  single  dimension  array  with  9  occurrences.  Values 

for  this  array  are  st  in  the  subroutine  LAST30.  These 
values  will  be  the  total  time  spent  by  BLUE  force, 
expressed  in  hours,  in  each  of  the  9  combat  conditions. 

QREAD  A  subroutine  which  is  used  to  manage  the  reading  of 

the  ENGAGEREP  file. 

LAST30  A  subroutine  used  to  store  in  the  array  PREV30  the 

values  of  the  current  TEMPI  array.  This  action  is 
required  because  the  utility  examines  discreet  periods 
of  time  and  the  incoming  times  from  the  engagerep 
file  put  into  TEMPI  are  accumulated  totals.  There¬ 
fore,  by  subtracting  the  values  of  the  PREV30  from 
the  new  TEMPI  the  time  spent  in  the  specific  3Q  day 
time  period  can  be  determined. 

3,  3K,  I3K,  Various  integer  variables  used  as  subscripts  in  the 

3KLM  utilities. 

14.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

14.2.1  SUPPORT  SOFTWARE:  This  utility  is  written  in  FORTRAN  IV  and  as 
such  requires  the  FORTRAN  IV  compiler  and  the  facilities  of  the  UNIVAC  1100 
system. 

14.2.2  I/O  DEVICES:  This  utility  uses  as  input  a  file  v/hich  may  or  may  not 
reside  on  disk.  If  the  file  is  active  it  will  reside  on  disk.  If  the  file  is  inactive  it 
will  reside  on  tape.  The  significance  of  this  situation,  beyond  the  fact  that  differ¬ 
ing  input  device  will  be  required,  is  that  different  runstreams  are  used  to  execute 
the  program.  Thus  it  is  anticipated  that  users  may  execute  the  wrong  runstream 
and  the  system  will  either  not  be  able  to  find  the  designated  input  file  or  an  out 
dated  input  file  may  be  used  in  the  utility  and  incorrect  results  may  be  written  to 
the  output  file.  The  output  file  will  be  written  on  to  disk. 

14.3  MAINTENANCE  PROCEDURES:  The  program  is  maintained  on  the 
system  by  the  MPP  analyst.  There  are  no  special  maintenance  procedures. 
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14.3.1  PROGRAMMING  CONVENTIONS:  This  is  one  of  the  few  utilities  in  the 
MPP  which  uses  subroutines  in  an  effort  to  isolate  repeated  procedures.  The 
utility  has  two  of  these  routines  One,  "QREAD,"  isolates  the  majority  of  the  reads 
of  the  input  file  **ENGAGEREP.  The  second  routine  "LAST30"  is  used  to  "age"  or 
move  to  temporary  holding  array  values  of  the  current  period  which  will  be  used  in 
subsequent  calculations. 

The  utility  is  written  in  FORTRAM  IV  and  follows  FORTRAN  programming 
conventions. 

14.3.2  INTERNAL  ERROR  ROUTINES;  There  are  no  explicit  error  handling 
routines  written  into  this  utility.  Errors  detected  during  program  execution  will 
be  identified  and  the  appropriate  system  messages  will  be  printed  in  the  PRINT$ 
file. 
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CHAPTER  15 


Utility  -  CEM/DATA 

15.1  DESCRIPTION  OF  PROCESSING:  This  program  performs  math 
functions  on  the  input  data. 

15.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  produce  the 
CEM/DATA  file  which  details,  time  period  by  time  period,  equipment 
authorization  levels  and  loss  rates  for  each  specific  item  equipment  type  within 
the  four  major  classifications  of  combat  equipment,  i.e.,  tanks,  armored  personnel 
carriers  (APC),  helicoptors,  and  anti-tank/mortar  weapons  (ATM).  This  data  is,  in 
turn,  used  as  input  to  the  utility  CEM/LOSS. 

This  utility  and  the  following  CEM/LOSS  utility,  are  unique  within  the  Materiel 
Postprocessor  in  that  they  share  and  are  executed  from  the  same  runstream, 
entitled  CEM/LOSSES,  which  is  cataloged  as  an  element  under  the  program  file 
CSTART*82XQT.  The  output  file  from  the  CEM/DATA  is  used  immediately  as 
input  to  the  CEM/LOSSES  and  is  released  immediately.  Only  the  output  from 
CEM/LOSSES  is  permanently  cataloged.  Therefore,  if  processing  is  interrupted  at 
any  point  in  the  running  of  this  series  of  utilities,  both  must  be  rerun.  Refer  to 
Volume  1  for  the  program  runstream. 

15.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  III.  15.1.  The  logic  flow  followed  by  the  utility  is 
depicted  in  FIGURE  III.  15.2.  The  source  code  of  the  utility  is  found  in  FIGURE 
III.  15. 3. 


15. 1.2.  A  INPUT  DATA  AND  DATA  BASE;  There  is  only  one  input  file  for  this 
utility.  It  is  the  CEM/DATA  report  file  which  is  produced  exclusively  for  the 
WARF  from  the  CEM  LOG  REPORT  (LOGREP).  The  file  should  be  cataloged  as 
an  element  under  the  current  study's  program  file,  in  this  present  case 
SECRET*82WARF88,  using  the  element  name  CEM/DATA. 

The  file  details  the  number  of  items  of  equipment  authorized  and  the  CEM  loss 
rates  for  up  to  12  individual  models  of  four  major  items  of  combat  equipment. 
The  four  major  items  of  combat  equipment  are  tanks,  armored  personnel  carriers 
(APC),  helicopters  and  antitank  &  mortar  weapons  (ATM).  An  example  of  one  of 
the  12  individual  models  of  one  of  these  major  combat  items  would  be  the  Ml 
Model  Tank. 

Figure  III.  15. 4  details  the  file  layout  for  the  CEM  Data  Record  file. 

15.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  This  utility  produces  one  output 
file,  83CEMLOSS1.  This  file  details  for  each  of  the  equipment  model  types  (a 
maximum  of  12)  within  the  four  major  Combat  equipment  categories,  (i.e.,  tanks, 
APC's  helicopters  and  ATM's)  the  average  number  of  items  authorized  for  a 
specific  time  period  and  the  percentage  loss  rate  for  that  period. 
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As  can  be  seen,  the  utility  has  taken  the  input  order  of  battle  data  and  accumulat¬ 
ed  into  several  time  periods  of  the  battle.  These  time  periods  are  further  classi¬ 
fied  into  the  Intensive  Period  and  Sustaining  Period  of  the  battle.  The  Intensive 
Period  is  the  first  90  days  and  the  sustaining  Period  is  the  last  90  days. 

The  file,  pictured  in  Figure  III.  15.5  is  highly  formatted  in  order  that  it  can  be  read 
as  a  report  for  data  verification  before  it  is  used  as  an  input  file  to  the  following 
utility  CEM/LOSSES.  As  a  result,  the  file  is  self  explanatory. 

The  file  is  unique  in  that  it  is  the  only  file  within  the  system  that  is  not  perman¬ 
ently  saved;  it  is  read  immediately  by  the  following  utility  CEM/LOSSES.  Thus  if 
processing  is  interrupted  in  either  of  these  two  utilities  both  will  have  to  be  rerun. 

15.4.2.C  DATA  ELEMENT  DICTIONARY; 


The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 

TK  A  single  dimension  variable  of  12  occurences.  Each 

occurrence  specifies  the  daily  authorized  quantity  of  a 
specific  model  of  tank.  These  values  are  read  from 
the  CEM  LOG  REPORT.  The  unit  of  measure  used  is 
TANKS. 


TKL 


TTK 


TKCUM 


TTKL 


TKLCUM 


A  single  dimension  array  of  12  occurrences.  Each 
occurrence  will  denote  the  daily  1 2  hour  losses  of  each 
of  the  12  models  of  tanks  in  the  study.  These  values 
are  read  from  the  CEM  LOG  REPORT.  The  unit  of 
measure  is  TANKS. 

A  single  dimension  array  of  12  occurrences.  Each 
occurrence  specifies  the  cumulative  total  of  author¬ 
ized  tanks  for  a  30  day  period.  It  equals  the  summa¬ 
tion  of  the  daily  authorizations. 

A  2  dimension  array.  The  first  dimension  contains  12 
occurrences,  1  occurrence  for  each  model  of  tank  that 
can  be  played.  The  second  dimension  identifies  each 
of  the  6  30-day  blocks  of  time  that  can  be  played. 
Entries  in  the  array  accumulate  the  authorized  quant¬ 
ity  data  for  the  12  tank  models.  This  cumulative  total 
is  equal  to  1/2  of  60  Division  Cycles  (TTK).  Therefore; 

TK  CUM(MODEL,  30  DAY  BLOCK)  =  TTK(MODEL)/2. 

A  single  dimension  array  of  12  occurrences  which  is 
used  to  accumulate  tank  losses  by  model.  Unit  of 
measure  is  the  TANK. 

A  2  dimension  array  which  is  used  to  accumulate  loss 
data  for  tanks  by  model  and  30  day  block,  similar  to 
TTKCUM  discussed  above.  The  cumulative  total  is 


... 
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AP 


APL 


TAPL 


APCUM 


APLCOM 


HE 


HEL 


equal  to  1/2  of  60  Division  Cycles  (TTKL).  Thus: 

TKLCUM(MODEL,  30  DAY  BLOCK)  =  TTKL(MODEL)- 

/2. 

A  1  dimension  array  of  12  occurrences.  Each  occur¬ 
rence  specifies  the  daily  authorized  quantites  of  up  to 
12  specific  models  of  Armored  Personnel  Carriers. 
This  data  is  read  from  the  CEM  LOG  REPORT.  Unit 
of  Measure  is  APC. 

A  single  dimension  array  of  12  occurrences.  Each 
occurrence  specifies  for  each  of  the  up  to  12  models  of 
APL  losses  sustained.  This  data  is  read  from  the  CEM 
LOG  REPORT.  Unit  of  measure  is  APC.TAPA  single 
dimension  array  of  12  occurrences.  Each  occurrence 
denotes  the  accumulated  number  of  APC  for  each  of 
the  12  models  over  30  days.  This  is  a  derived  value 
which  results  from  the  sum  of  authorized  AP  quanti¬ 
ties  for  specific  APC  models.  Unit  of  measure  is  APC. 

A  single  dimension  array  of  12  occurrences.  Each 
occurrence  denotes  the  accumulated  losses  of  specific 
models  of  APC  in  the  study.  This  is  a  derived  value 
resulting  from  the  sum  of  APL  (APC  losses)  for  speci¬ 
fic  models.  Unit  of  measure  is  APC. 

A  2  dimension  array.  Each  entry  in  the  array  specifies 
the  cumulative  number  of  items  broken  out  by  APC 
model  and  30  day  block.  Entries  in  the  array  accumu¬ 
late  the  authorized  quantities  of  APC  by  model  and  30 
day  block.  The  values  are  derived  using  a  formula: 

APCUM(MODEL,3Q  DAY  BLOCK)  -  TAP  (MODEL)/2. 

The  unit  of  measure  is  APC. 

A  2  dimension  array.  Each  entry  in  the  array  speci¬ 
fies,  for  each  APC  model  type  and  30  day  block,  the 
accumulated  losses.  This  value  is  derived  by  a  simple 
assignment  of  the  current  TAPL  (MODEL)  to  the 
APLCUM  (MODEL,  30  DAY  BLOCK).  The  unit  of 
measure  is  APC. 

This  is  a  single  dimension  array  with  5  occurrences. 
Entries  in  the  array  denote  the  authorized  quantities 
for  each  of  5  Helicopter  models  in  the  study.  This 
data  is  obtained  from  the  CEM  LOG  REPORT  file. 
The  unit  of  measure  is  HELICOPTERS. 

This  is  a  single  dimension  array  with  5  occurrences. 
Entries  in  the  array  specify  losses  sustained  for  each 
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of  the  5  Helicopter  models  in  the  study.  This  data  is 
read  from  the  CEM  LOG  REPORT  file.  Unit  of 
measure  is  HELICOPTERS. 

THE  This  is  a  single  dimension  array  with  5  occurrences. 

each  entry  in  the  array  denotes  the  cumulative  number 
of  helicopters  by  model  for  30  days.  This  is  a  derived 
value  resulting  from  the  summation  of  helicopter 
quantity  authorization  data  for  the  current  30  day 
period.  The  unit  of  measure  is  HELICOPTER. 

THEL  This  is  a  single  dimension  array  of  5  occurrences. 

Each  entry  specifies  losses  for  each  model  of  Helicop¬ 
ter.  This  data  read  from  the  CEM  LOSSES  REPORT 
file.  Unit  of  measure  is  the  HELICOPTER. 

HECUM  This  is  a  2  dimension  array,  which  specifies  for  each  of 

the  5  Helicopter  models  and  30  Day  Block  of  time  the 
total  quantity  authorized.  This  is  a  derived  value. 
Entries  in  the  array  are  equal  to  1/2  of  the  60  division 
Cycles  (THE)  using  the  equation: 

HECUM(MODEL,30  DAY  BLOCK)  =  THE  (MODEL)/2 

The  unit  of  measure  is  HELICOPTER. 

HELCUM  This  is  a  2  dimension  array  which  specifies  losses  for 

each  Helicopter  model  and  30  Day  Block  of  time.  This 
value  is  assigned  by  the  utility  using  the  current  Heli¬ 
copter  model  losses,  (THEL).  The  unit  of  measure  is 
HELICOPTER. 

AT  This  is  a  single  dimension  array  of  12  occurrences. 

Each  entry  denotes  for  each  of  the  12  possible  models 
of  Anti-tank  and  Mortar  (AT)  Weapon  System  the 
authorized  quantity.  This  value  will  be  read  from  the 
CEM  LOG  REPORT  input  file.  The  unit  of  measure  is 
ATM. 

ATL  A  single  dimension  array  of  12  occurrences.  Each 

entry  in  the  array  indicates  the  number  of  losses  that 
were  encountered  for  each  ATM  model  in  the  current 
30  day  period.  This  value  is  read  from  the  CEM  LOG 
REPORT  input  file.  The  unit  of  measure  is  ATM. 

TAT  This  is  a  single  dimension  array  of  12  occurrences. 

Each  occurrence  specifies  for  each  ATM  model  the 
total  quantity  for  a  30  day  period.  The  value  is 
derived  from  summing  the  ATM's  authorized  for  the 
current  30  day  period.  The  unit  of  measure  is  ATM. 
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TATL 


ATCUM 


ATLCUM 


TKAVG 

APAVG 

ATAVR 

HEAVG 


PTK 

PAP 

PHE 

PAT 


AVGTK 

AVGAP 

AVGHE 

AVGAT 


TKPCT 

APPCT 

HEPCT 

ATPCT 


A  single  dimension  array  of  12  occurrences.  Each 
occurrence  indicates  for  each  of  the  12  ATM  models 
the  total  losses  sustained  during  the  current  30  day 
period.  This  is  a  value  derived  by  summing  the  indi¬ 
vidual  ATL  values.  The  unit  of  measure  is  ATM. 

This  is  a  2  dimension  array  which  specifies  for  each 
ATM  model  and  30  Day  Block  of  time  .he  accumulated 
quantity  authorized.  The  values  are  derived  by  divid¬ 
ing  the  60  Division  Cycle  by  2.  Thus: 

ATCUM  (MODEL,  30  DAY  BLOCK)  --  TAT  (MODEL)/2 

Unit  of  measure  is  ATM. 

This  is  a  2  dimension  array  which  accumulates  for  each 
ATM  model  and  30  Day  Block  of  time  the  loss  quanti¬ 
ties.  These  values  are  simply  assigned  the  individual 
model  loss  quantities  for  the  current  30  Day  Block. 
The  unit  of  measure  is  ATM. 

These  4  variables  are  2  dimension  arrays  which  specify 
for  Tanks,  APC'S  ATM's  and  Helicopters  respectively, 
for  each  model  type  and  30  Day  Block,  the  average 
daily  authorization  quantities.  The  values  ar  e  derived 
by:  dividing  the  cumulative  totals  (i.e.,  TKCUM, 

APCUM,  etc.)  by  the  number  of  days  in  the  time 
period. 

These  four  variables  arc  2  dimensional  arrays  which 
denote  for  Tanks,  APC's,  Helicopters,  and  ATM's,  for 
each  model  of  weapon  in  a  30  Day  Block  of  time  the 
daily  fractional  loss  rate.  These  values  are  derived  by 
dividing  summation  of  the  current  30  Day  Block  and  all 
preceding  blocks'  cumulative  losses  (TKLCUM,  - 
APLCUM,  etc.)  by  the  average  daily  authorization 
quantities  multiplied  by  the  number  of  the  30  Day 
Block  of  time  being  analyzed. 

These  four  variables  are  arrays  with  2  dimensions. 
Entries  in  these  arrays  specify  for  each  model  of  each 
type  of  equipment  for  each  30  Day  Block  of  the 
average  daily  authorization  quantities.  These  values 
are  derived  by  dividing  the  cumulative  authorization 
levels  (e.g.,  TKCUM,  APCUM,  etc.)  by  30. 

These  four  variables  are  arrays  with  2  dimensions. 
Entries  in  these  arrays  denote  for  each  model  of  each 
of  the  4  major  types  of  equipment  for  each  30  Day 
Block  of  time  the  average  daily  loss  rates.  These 
values  are  derived  by  dividing  the  cumulative  losses 
(e.g.,  TKLCUM,  APLCUM,  etc)  by  average  daily 
authorization  levels  (e.g.,  AVGTK,  AVGAP,  etc.) 
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TK15, 

API  5, 

AT  15, 

HE  15, 

These  four  variables  are  single  dimension  arrays.  Each 
array  has  sufficient  occurrences  to  accommodate  the 
various  models  of  each  weapon  type;  l.e.,  tank,  APC, 
Helicopters,  or  ATM.  Each  entry  specifies  the  average 
daily  authorization  quantities  for  the  first  30  days  of 
the  study.  This  value  is  derived  by  accumulating  the 
authorization  quantities  for  the  first  30  days  as  read 
from  the  CEM  LOG  REPORT  and  dividing  it  by  30. 

TKL15, 

APL15, 

ATL15, 

HEL15, 

These  four  variables  are  single  dimension  arrays.  Each 
has  sufficient  occurrences  to  accommodate  the  various 
models  of  each  weapon  type.  Entries  in  these  arrays 
denote  for  the  first  30  days  of  the  study  the  average 
daily  loss  rates.  These  values  are  derived  by  accumu¬ 
lating  losses  for  each  weapon  model  lor  the  first  30 
days  and  dividing  the  result  by  the  average  daily 
authorization  quantity. 

TK30 

AP30 

AT  30 

HE30 

TKL30 

APL30 

ATL30 

HEL30 

These  4  variables  are  similar  in  structure  and  deviation 
to  those  discussed  above  except  they  denote  daily 
authorization  quantities  and  loss  rates  for  the  second 
30  day  period. 

ITC 

An  integer  variable  which  denotes  the  number  of 
theater  cycles  being  played.  A  theater  cycle  is  equal 
to  4  days.  This  value  is  provided  manually  by  the  user 
and  is  read  by  the  utility  using  logical  unit  5. 

KDC 

An  integer  variable  which  denotes  the  number  of 
Division  Cycles.  This  value  is  equal  to  8  times  the 
number  of  theater  cycles  (ITC). 

KCC 

An  integer  variable  which  denotes  the  number  of  Corps 
Cycles.  This  value  is  equal  4  times  the  number  of 
theater  cycles  (ITC). 

K30 

An  integer  variable  which  denotes  the  number  of  30 
day  periods  of  increments  in  the  study.  This  value  is 
equal  to  KCC/30. 

KO 

An  integer  variable  used  as  a  counter  to  identify  the 
particular  30  day  Block  time  period  being  analyzed. 

3,  33 

Integer  variables  used  as  counters  and  as  subscripts  in 
various  arrays  to  identify  specific  weapon  models  in 
the  4  major  weapon  types. 
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I,  13,  IKO,  II 


Various  integer  variables  used  as  subscripts  in  arrays  in 
the  program. 


15.2  OPERATING  ENVIRONMENT;  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

15.2.1  SUPPORT  SOFTWARE:  This  utility  is  written  in  and  requires  the 
FORTRAN  IV  compiler.  In  addition  it  also  requires  the  UNIVAC  EXEC  8  system 
facilities. 

15.2.2  I/O  DEVICES:  The  utility  uses  as  input  a  file  which  resides  on  disk  and 
produces  as  output  a  file  which  will  reside  on  disk. 

15.3  MAINTENANCE  PROCEDURES:  This  program  is  normally  maintained 
on  the  system  by  the  MPP  analyst. 

15.3.1  PROGRAMMING  CONVENTIONS:  One  unique  facet  of  this  utility  is 
that  it  and  the  following  routine,  CEM/LOSSES  are  executed  from  the  same 
runstream.  Secondly,  approximately  20%  of  the  code  has  been  added  since  the 
original  routine  was  put  into  service.  These  additions  are  clearly  preceeded  by  the 
comment  "HANK  CHANGES"  and  terminated  by  "END  HANK  CHANGES".  The 
variable  names  used  in  the  utility  are  rather  cryptic  and  heavy  reliance  on  the 
variable  dictionary  is  anticipated.  The  utility  is  structured  into  several  general 
sections.  There  is  an  initialization  section  where  various  arrays  are  initialized  to 
zero,  the  input  file  is  read  and  selected  arrays  are  filled.  The  next  several 
sections  calculate  data  for  time  periods  INTENSE  and  SUSTAINING  periods. 
Finally  the  results  are  written  to  the  output  file. 

15.2.2  INTERNAL  ERROR  ROUTINES:  There  are  no  explicit  error  handling 
routines  written  into  this  utility.  As  a  result  detection  of  errors  will  depend  upon 
the  system  and  the  user  will  be  provided  with  system  error  messages  in  order  to 
identify  and  solve  problems. 


329 


TKPCT 


CUM/AVE 


CUM/AVE 


ATPCT 

* 

CUM/AVE 


UNCIASSIFIEP**»FILE  NAME:32XCT  element  nAMEICEM/DATA. ••UNCLASSIFIED 


i:c** •••••••••••••*•••*•••••••• •*•*••••*••••••*.•••**•••••*•*••••••••• 

. . . . . . . 

3 :c«*  *• »THIS  utility  is  designs c  to  read  the  cem  data  report 

4 :c*» •••PREPAREO  EXCLUSIVELY  FOR  WARE  F»CM  THE  CEM  LOG  REPORT 
5!C****»(L0GREP)  ANO  PROVIDES  THE  INPUT  NEEDED  FOR  THE  UTILITY 

6  SC •* •••"82XQT. CEM/ LOSSES*. 

7  JC  *• •• «THIS  UTILITY  AND  " S2X GT  .CEM /L OSSES  ARE  EXECUTED  WITHIN 

8  !C •* •• *THE  SAME  RUN  STREAM.  ONLY  THE  OUTPUT  FROM  THE  LATTER 
9IC**  •••UTILITY  IS  RCTAINED. 

in :c>* •*•**»••••*»•*••**»***••*• •••*•••**•••**••*•••• . 

. . . . 

12!C*»»»»DIMENSI0N  THE  VARIABLES 

13 :c *••••••••••••»••»**•••••••»••••••••••••••*••*•••***••*••• *•*••••• 

14?  DIMENSION  T K< 12 ) . TKL< 12  I . AP ( 12 » • APL 1 1 2 ) . HE ( 5 )  .HEL < 5 ) . 

15 1  •  AT( 12 ) . ATL( 12  )* 

16!  •  TTK (12) ,TTKL(  12) • TAP (12) .TAPL( 12) .THE (5 ) »THEL  (5)  , 

17:  •  TAT (121 .TATLI  12) . 

IS)  •  TKCUM(12.6) .T KLCUM(12.6) . APCUM(12.6 APLCUM(12»6) . 

19:  •  ATCUM (12.6) .A TLCUM112.6  )  ,HECUM(5, 6)  .HELCUM (5.6)  . 

20  5  •  TKAVG (12.61  ,P TK( 12.6  ). APAVS112.6) .BAP(12.6> » 

2i:  •  HEAVG(6,6).FHE(S.6).ATAVG(12,6)  .PATI12.6), 

22:  •  TKPCT (12.6) ,A PPCT ( 12 .6 ).HEPCT( E.6 ) . ATPCT(12.6 )  . 

23:  *  AVGTK (12.6) .A VGAP (12.6 ), AVCHE ( F.6 ) . AVGAT(12.6 ) 

?4:c •*•••*•••••••*••***•.•*• ••*••••*••»••••••••*•••••••••••»••••••••••••• 

25  :C  ••  «H  ANK  CHANGES 

26 :c •••*••»••••••••»*••••••••••*  •••••»••••••••••..••.•••••*•••••**•••*••• 

27:  DIMENSION  TK1 5( 12 ) . TK  3U ( 12 )  . APIS ( 12  )  . AP 3P( 1 2 ) . A T15 (12 ) . AT  30 ( 1 2 ) . 

2a:  *  TKL15(12I»TKL30(12)»  APL1S ( 12 )  .  APL30 ( 12 ) .  ATL15 1 12)  .ATL 3(1(12). 

291  •  HE  15 ( 5 ) . HE  30 ( 5 ) . HEL1 9 (E ) .HEL3U) 5  ) 

30  :c •••••*•*•**•»**••••••••*»••• •••••••«••.••*•*•**••***••••»••••..*••*,. 

3i:C»**«*END  CHANGES 

32 :c •••*••••**••••••••»•••••••••••••••••••♦•.•••••••»••••*•••••.*.. •••••• 

33:  READ  (5.10(10)  ITC 

34:  KOC  =  ITC8 

35:  KCC  r  ITC»4 

36:  K  30  =  KCC/30 

37:  XFIK30.LT.1)  CO  TC  200 

38  :c ••*•*•*•*****•*•*••*••*******  •••***•***•*»*•»*•*•*••»••••»•»•*••**•••• 
39:C»»**«K0C  =  NUMBER  OF  DIVISION  CYCLES  KCC  =  NUMBER  OF  CORBS  CYCLES 
40:C**»«»K30  =  NUMBCR  OF  30-DAY  INCREMENTS  . 

4i:C»»*»«TK  :  TANK.  AP  =  APC.  HE  =  HELO.  AT  =  ANTI-TANK  S  MORTARS. 

42 :C •• •• »TKL .  APL.  HEL.  ATL  =  12-HOUR  LOSSES  OF  ITEMS  OF  EQUIPMENT. 

43  :C •• •• *TTK .  TAP,  THE,  TAT  =  CUMULATIVE  NUMBER  OF  ITEMS  OVER  30  DAYS. 

4<*  :C  *•  ♦*  «TTKL«  TTAPL.  TTHbL,  TTA  TL  =  CUMULrIvr  N  U  M n  E  R  OF  ITEMS  LOST  CVrP 
45:C****»A  30  OAY  PERIOD. 

46SC»» »•*••••••***••••»*•*♦*••**  •••*•«••»»*••.••••••*«•»••*•»*•♦*•»•••••» 

47:c»**««*»»*»***»»» ••*••»••••*»•••«•»••*••*»••*•••**•••••••»••  ••••.•••«. 

48  :c  ••  ••  *TKCUM ,  \PCUM.  HECUM.  ATCUM  -  CUMULATIVE  NUMBER  OE  ITEMS  BY  .30 
49:c**  •♦•DAY  BLOCK. 

so :c •••••*••••••«••••••*•••••• ••••*••••*»••*•••**••*•••••••••••«•*••••••• 

51 :C*» •••TKLCUM.  APLCUM.  HELCUM.  ATL  CUM  =  CUMULATIVE  LOSS  DY  3D  DAY 
52:C»«  •••BLOCK. 

S3 :c •*••••••••••••••«•«•••••••••  •••••••*•**»••••.•••••••••••••••••••.*••• 

54  :c *••••» ••**••••••** . . 

55:c»»««»j  OR  JJ  IS  ALWAYS  USEO  AS  THE  COUNTER  FOR  TYPE  OF  WE  Ar0  N 
56:C*»***IN  A  MAJOR  CATEGORY. 

. . . . . . 
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UNCLASSIFIED***FILE  NAME  282XQT  ELEMENT  NAHESC EH /DATA*** UN CLASSIFIED 


ss:c ****** *••****•*•** **********  *••«***«*«********•••««**• 

S9:C*****K0  IS  THE  COUNTER  FOR  EACH  30  OAY  BLOCK  OF  DATA. 

so  :c *••**••*•*****•♦•• »*•••*•••* •*•*•••••**••••**••••*•*•« 

61 :c *»*•*•*****«*••*«* **«*••*•*• . . 

62 :c *»*•***«****«**••* ••••»•••»• 

63: 

64SC* 

65  SC ***•**•••••* •**•*♦••< 

66tC*****ZER0  THE  ARRAYS 
6TSC ***••*«»..*» •*•**••*< 


KO  =  1 


66  SC  < 


63 : 

l 

00  2  IKO-  1*6 

70S 

00  3  IJ  =  1*12 

71 : 

TKCUM (I J* IKO )  =0. 

72 : 

APCUM(IJ.IKO)  =  0. 

73: 

ATCUM (I J* IKO )  =  0. 

7i : 

TKLCUMC IJ.IKQ)  -  0. 

75: 

APLCUMt IJ.IKQ )  =  0. 

76: 

ATLCUMC IJ.IKQ )  =  0. 

77: 

TKAVG (IJ.IKQ)  =  0. 

7s: 

APAVG (I J.IKO)  s  0. 

7?: 

ATAVG (I J.IKO)  =  0. 

an: 

PTK(IJ.IKO)  =  n. 

si : 

PAP(IJ.IKO)  =  0. 

92: 

PAT (I J. IKO )  =  0. 

33: 

3 

CONTINUE 

94: 

DO  4  IJ  =  1,5 

as: 

HECUM (1 J.IKO)  r  0. 

96 : 

HELCUM) IJ.IKO)  =  0. 

37: 

HEAVG (IJ.IKQ)  =  0. 

as: 

PHE  (IJ.  IKO)  =  0. 

39: 

4 

CONTI  NUE 

90S 

2 

CONTINUE 

9i:c*< 

ft  *•  1 

32SC*< 

ft  ••  ' 

93:c«< 

ft  *»  I 

•ZERO  THE  AUTHORIZED 

9I»:C«****EACH  3U-0AY  PERIOD  IS  EQUIVALENT  TO  60  DIVISION  CTCLES. 

95 :c •*••*•***••«.*•«***•*•.**•«. ***•••**•<**..**•»••••••*.***••< 


36  SC< 


97 : 

55 

0  0  60  J 

=  1.12 

99: 

TK ( J )  = 

0. 

99 : 

TKL  (J  ) 

=  0. 

ion: 

A  P  (  J )  = 

0. 

ioi  : 

APL ( J 1 

-  0. 

io?: 

AT ( J)  = 

0. 

103 : 

ATLIJ) 

=  0. 

1G4 : 

TTK (J  1 

=  1). 

ids  : 

TTKLt  J) 

:  (1. 

106 : 

TAP (J  I 

r  0. 

107: 

TAPL) J) 

=  0. 

ids  : 

TAT(J) 

=  0. 

109: 

TATU  J) 

=  0. 

no: 

60 

CCNTINU 

E 

in : 

00  70  J 

=  1.5 

112: 

HE  (  J )  = 

0. 

113: 

HEL (J 1 

=  0. 

114 : 

THE  (J  ) 

=  0. 
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UNCLASSIFIED*»«FILE  NAME 

:B2XQT 

EL  EMENT 

N AM E1CEN /DATA* ••UNCLASSIFIED 

115J 

THELIJ)  =  G. 

lie: 

70  CONTINUE 

H7: 

DO  10  I  =  1.60 

ns:c* 

H9:c* 

1201C** •••READ  THE  AUTHORIZED 

AND  LOSS 

DATA  FOR  EACH  DIVISION  CYCLE. 

i2i:c» 

I22:c* 

123: 

READ! 7.1001 1 

ITKl J)  • 

TK  LIJI  . 

J=1.12> 

124: 

RE AO! 7.1001 ) 

(APt  Jl  • 

AP  L(J)  • 

J-l  .12  ) 

125: 

READt  7. 1002  ) 

IHEI  J)  . 

HE  HJ)  . 

J'l » 5 ) 

i2e: 

127SC* 

READ*  7.1001) 

(ATI J)  . 

ATlIJ)  . 

J-l .12 > 

. . ••••••*•••». . . 

129:C»**»*ACCUMULATE  THE  AUTHORIZED  AND  LOSS  DATA  FOR  THE  CURRENT  30  DAYS. 
i30:c •••»**•*•*•*••••***********•  •*»••••*•*••*••••**••••••••***•**••*•»*• 


i3i:c** 

132: 

DO  20  J 

:  1.12 

133: 

TTK 1 J  )  = 

TTKIJI  ♦ 

TK  I  Jl 

134: 

TTKLI J) 

-  TTKLIJ) 

♦  TKL  IJ) 

13s: 

TAPIJI  : 

TAPIJ)  ♦ 

API  Jl 

136: 

T  APU  J) 

=  TAPLUI 

♦  APL  IJ) 

137: 

T  AT  1 J )  = 

TATI J)  ♦ 

ATI  Jl 

138: 

TATLI Jl 

:  T  AT  LI  J) 

♦  ATL  IJ) 

139:C»» 

i40:c*«  «•••••••♦• . 

14i:c**  ***HANK  CHANGES 
1421C** •••••••**•»•**• 


i4s:c» 

144: 

IF  IKO 

•  44  • 

•  CT  • 

1)  GO  TO 

M 

20 

44  4  i 

145: 

IF  (I.l 

GT.30I  GO  TO 

18 

146: 

TK  15 

IJ) 

=  TK  15 

IJ  ) 

♦ 

TK  IJ) 

147: 

AP  15 

(J) 

=  AP15 

(J  ) 

♦ 

AP  IJ) 

148: 

AT  15 

IJ) 

=  AT  15 

(J  1 

♦ 

AT  IJ) 

149: 

TKL15 

IJ) 

=  TK  LIS 

IJ  1 

♦ 

TKL 1 J ) 

iso: 

APL15 

IJ) 

=  APL1S 

IJ  ) 

♦ 

APLI  J) 

isi: 

ATL15 

IJ) 

=  AT  LI  5 

IJ  > 

♦ 

ATLI  J) 

is?: 

IF  (J. 

GT.5 

)  CC  TO  20 

153: 

HE  15 

IJ) 

=  HF15 

IJ  1 

♦ 

HF  IJ) 

154: 

HE  LI  5 

(J) 

=  HEL15 

IJ  > 

4 

HEL 1 J) 

155: 

GO  TO 

20 

156: 

18  TK  30 

IJ) 

=  TK  30 

IJ  ) 

4 

TK  IJ) 

157: 

AP  30 

IJ) 

=  AP  30 

IJ  1 

4 

AP  1  J) 

158: 

AT  30 

IJ) 

=  AT  30 

(J  I 

4 

AT  1  J) 

159: 

TKL3D 

( J  ) 

:  TKL3D 

IJ  ) 

4 

TKL I J ) 

160: 

APL3C) 

(J) 

:  AP L3D 

IJ  ) 

4 

APLI J) 

isi: 

ATL3D 

1 J  ) 

i  AT  L3D 

IJ  1 

4 

ATL 1 J) 

162: 

IF  (J  .1 

GT.5 

)  GC  TO  2 

n 

163: 

HC3U 

(J  ) 

:  H^U 

u  ) 

4 

HE  IJ) 

164: 

165:C* 

i6e:c* 

HEL30 

1  J) 

*  *  *  4 

*  *  *  * 

:  HEL30 

(J  ) 

44  4i 

•  4 

4 

1*  4  t 

•  4  4  1 

HEL 1 J) 

167 :C •• •• «E  NO  HANK 

CHANGES 

I63:c* 

I69:c« 

170 : 

20  CONTINUE 

•  44  4 

4  4  4  4 

•  •  •• 

44  4  i 

94  4  1 

94  4  1 

lTi:  00  30  J  :  1.5 
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UNCLAS  SI FI  ED  »»  *F ILE  NAME:82X0T  EL  THEN  T  NANESCEN/O ATA..*UNCLASSIFIEO 

172:  THE  ( J  1  =  THE  (  J)  ♦  HEIJI 

173:  T  HE  L  (  J 1  r  THCL(J)  ♦  HEL  t J) 

17** :  10  CONTINUE 
175:  10  CONTINUE 

176 :C •******••••»•••••• ••••**»*»• .«•••.***•*.» . . 

177  :c *»****»**»«»**»*** •**»»•*» . .*..••....••*••««..• . «••••* 

178:C**»..ACCUHULATE  AUTHORIZED  AND  LOSS  DATA  BY  JO  DAY  BLOCK  (KO  1 » 

itb:c ».»•**.••...**.**• ....*.*.*. 

isp:c »•**«»**»*«»*»•»••»*»**».**».«*•*».».••..♦..••...*•» ••••••••*•«•«•* 

181:  DO  HD  J  =  1*12 

132:  TKCUH (J * KO 1  =  TTK(Jl/2.  8(60  DIV  CYC1/2=CUM  FOR  JO  DAYS. 

183:  TKLCUNt  J*KO  1  =  TTKHJi 

184:  APCUMtJ.KO)  =  TAP(J>/2. 

135:  APLCUNI J*  KO  J  =  TAPLtJ) 

186:  ATCUH I J  «  KO )  s  TAT(JI/2. 

187:  ATLCUHI J*KO  1  =TATL(d» 

188:  HO  CONTINUE 

IBS:  DO  50  J  =  1*5 

190:  HECUH (J  «K0)  =  THE(J)/2. 

1311  HELCUMI J*KO 1  =  THELIJI 

192:  50  CONTINUE 

193 :C. «*««.«* ..«•«*•».* *«•••••.*« 

194 :c 

195 :C  «• »*  *1 NCRE  HE  NT  THE  30-DAY  PERIOD  COUNTER  (KO). 

196 :c •***•**«.*••«*.**....■ ...... t************************************** 

I97:c»«*.«**.»*«*.*»*»****.*»*.*».«*»»»*»»»*******»**..*.***»*.**»***»*. 

138 :  KO  =  KO  ♦  1 

199:  IF(KO.LE.KJO)  GO  TO  55 

2on:c •••**••*•••*••*..• ......... ••**•*.* 

201 :c. .................... ....... 

202  :c».  ...HANK  CHANGE 

203 :c.» .......... 


204  :c*««. 

2051 

DO  57 

J=l*12 

206: 

THIRTY 

-30. 

207  : 

TK1 5 

(Jl  = 

TK15 

(  Jl/THIRTY 

208’. 

API  5 

(Jl  = 

APIS 

( Jl/THIRTY 

20?: 

A  T1  5 

(Jl  - 

A  T15 

(  Jl/THIRTY 

210: 

TK3  0 

(  J)  = 

TK30 

(  Jl/THIRTY 

2ii : 

AP3Q 

(J)  = 

AP3Q 

( Jl/THIRTY 

212: 

AT3Q 

(J)  = 

AT30 

( Jl/THIRTY 

213:  IF( TK15 (J).GT.O, )  TKL15  (J)  =  TKL15  ( J) /  TK15  (J) 

214:  IP( »P15(J>.GT.D.)  A  PL1 5  (j)  =  APL15  (Jl/  AP15  (J) 

215:  IP( AT 15 (J).GT .0.1  ATL15  (J)  =  ATL15  (J)/  AT15  (J) 

216  :  IF(  TK30( J  I.CT.O. I  TKL30  (J)  =  TKL30  (J)/  TK  30  (J) 

217:  IF(  AP!0(J).GT.0.  I  A  FL30  (J)  =  APL3(!  (J)/  4P7U  ( J ) 

2ie:  JF(  4T30 (JI.GT.u,  I  ATL30  (J)  :  ATL3U  ( J ) /  AT  3U  (Jl 

219 :  IF«  J.CT .5 )  30  TC  57 

220:  HE15  (J)  =  HE15  (Jl/THIRTY 

22i:  HE30  (J)  =  HE30  (Jl/THIRTY 

222:  IF(HE15(JI.GT.o.)  HEL15  (Jl  =  HEL15  (Jl/  HE15  (Jl 

223  :  IF( HE30 (Jl.GT.O.  1  HEL30  (J)  =  HEL30  (Jl/  HE30  (Jl 

224  :  57  CONTINUE 

2 25 :c»* .......................... ........................ ......... 

. . . . . 

2271C*.  ».»ENO  HANK  CHANCES 

229  1C.* ...CALCULATE  TATA  FOR  1ST  30-0AY  PERIOD  (K0=1)  » INTENSE  P0» 
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UNCLAS  SIFX  ED  **  *F ILE  NAME:82XaT  ELEMENT  NAMEICEH/DATA*  ••UNCLASSIFIED 

229 :c •••••*••*•••»••**• ••••••*•••  ••♦«•*•*••**••*•••*•*•••**••••••••* 

. . . . . . 

231!  110  00  111  J  =  It  12 

232:  TKAVGtJ.il  =  TKCUMt  J.  II  /3Q  . 

233:  IFtTKAVGt J.ll .NE.OlPTKt J.ll  =  TKLCUMt J » 1 ) /T KA VG t J . 1» 

2  34  :  IFt  TK  AVGt  J.ll  .FQ.O)  PTKt  J*1  )  =  0 

235:  APAVGtJ.il  :  APCUMI J* 11 /30 . 

236:  IFtAPAVQt J.ll .NE.OlPAPt J.ll  =  APtCUMtJ.il/APAVGU.ll 

237:  XFtAPAVGtJ.il .EQ.OlPAPt Jtl)  =  0 

238:  ATAV6 t  J  *1 1  =  ATCUMt J. 1 I /30 . 

239:  IFtATAVGtJ.il .NE.UIPATt J.ll  r  ATLCUM t J , 1 I /A TA VG t J » 1 ) 

240:  IFtATAVGtJ.ll.CG.01PATtJ.il  =  0 

24i:  111  CONTINUE 

242:  00  112  J  =  1.5 

243:  HEAVGIJ.il  =  HECUMl J. 1 I /30 . 

244:  IFt HE  AVG(J.l) .NE.OIPHEI J.ll  =  HELCUHtJ.il/HEAVGtJ.ll 

245:  IFtHEAVGtJ.ll.Ea.OIPHEIJ.il  r  0 

2461  112  CONTINUE 

247:  IF  (K30.LT.2I  GO  TO  300 

248 :c •*••**»«*****•***•*•.•**••*»  ................................... 

2 49 :c ••»••**•**«»«•*•*••**••**********•••♦*•••*••••*• •••****•*•»»»•» 

2S0:C»»***CALCULATE  DATA  FOP  2ND  30-DAY  PERIOD  IK0=2>  *  INTENSE  °D* 

2 51 :c ••***♦*****«*•*•*•*•*•••***• ****•**•*•**•••«•*«•••»•***•******* 
252:c ••****•*••*********•**•♦«**• 

253:  120  DO  121  J  =  1.12 

254:  TKAVG  t J .2  I  =  ITKCUMtJ.il  ♦  TKCUM t J , 2  I  I /SO. 

2S5:  IFtTKAVGt J.2I .NE.OlPTKt J.2I  =  tTKLCUMtJ.il  ♦  TKLCuMt  J.2 I  I / 

256:  «ITKAVGt J.2I.2.I 

257:  IFtTKAVGt J.2I .EO.OlPTKt J.2I  =0 

258:  APAVGtJ.21  =  tAPCUMtJ.il  ♦  APCUM  t  J • 2  I  I  260. 

259:  IFtAPAVSt J.2I .NE.OlPAPt J.2)  =  tAPLCUMtJ.il  ♦  APLCuMt  J.2 I  I / 

26ti:  •  t  APAVGt  J.2I  *2  .  I 

26i:  IFt APAVGt J.2I .EQ.OlPAPt J.2)  =  0 

2621  ATAVG  t  J  .  2  I  =  tATCUMU.il*  ATCUM  t  J  ,  2  I  » /6D. 

263:  IFtATAVGt J.2I .NE.OlPATt J.2I  =  t  ATLCUM  t  J . 1 1  ♦  ATLCUMI J.2 I  I / 

264:  *t ATAVGt J. 21*2. I 

265:  IFt ATAVGt J. 21 .EG. 01 PATt J.2 I  =  0 

266:  121  CONTINUE 

267:  DO  122  J  r  1,5 

268:  HEAVGtJ.21  =  tHECUMtJ.il  +  HECUM t J . 2  I  I /BO. 

269:  IFt HE  AVOtJ. 21. NE.OIPHEI J>2 I  =  IHELCUMtJ.il  ♦  HELCuMt  J.2 I  I / 

270:  * t HE AVGt J. 2 1 *2 .  I 

271:  IFt HE  AVGt  J.2I .EG. 01  PH Et  J.2I  :  0 

272:  122  CONTINUF 

2731  IF  <K30.LT. 31  GO  TO  3nD 

2 74 :c*» .............. 

27$ :c •*«**•••«•***••••• •*•••••»*•  ................................... 

276::»*  ...CALCULATE  DATA  Ft,1*  3RD  3D-DAY  FEPICD  tKU  =  3l  •  INTENS'!  P0» 

277:c ••••*••••••••••*•••*•••••••* 

2 78 :c** •*•*••**••*•••»*••*•*•*••♦*••**♦•*•»«*•*•*•*** •*••••****»»»** 

27®:  130  DO  131  J  r  1,12 

280:  TKAVG  (J. 31  =  tTKCUMtJ.il  ♦  TKCtlMt  J*  21  ♦  TKCUM  t  J  .3  I  I  /  GO . 

23i:  IFtTKAVGt J.ll .NE.OlPTKt J. 31  r  tTKLCUMtJ.il*  TKLCUMtJ.21* 

282t  *TKLCUMt J. 31  I  /  t TK AVGt  J.3 I »3.  I 

283!  IFtTKAVGt J. 31. CO. OlFTKt J. 31  =  0 

2341  APAVG  < J  .3  I  =  <APCUMtJ.ll  ♦  APCUMtJ.21  ♦  APCUM  t  J , 3  I  I / PQ . 

28$:  IFt AP AVGt J. 31 .NE.OlPAPt  J.l |  r  IAPLCUMIJ.il*  A°L CU M t J  .  ? ) ♦ 
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UNCLASSIFIEO***FILE  NANf  SS2XQT  CL  CHCNT  NAMttCEH/OATA* *»UNCLASSTFIED 

z as :  *aplcuhi  j.tii/iapavgij.!  i*3.i 

297:  IFIAPAVS1J.3I .FQ.OIPAPI J.31  =0 

288  :  ATAVG  ( J  *3  I  s  lATCUHU.il  ♦  ATCUH1J.2I  ♦  ATCUHU.3  1 1/90. 

2995  IF1ATAV01 J. 31 .NC.OIPATI J.31  =  IATLCUNIJ.il*  ATLCUN1J.21* 

290:  *ATLCUNI  J.3I  I/1ATAVQ1J.3  1*3.1 

29i:  IF1ATAVGU.1I. EG. OIPATI  J.3)  =  0 

2925  131  CONTINUE 

2931  00  132  J  =  1.5 

294  1  HEAVGIJ.3I  =  1HECUNU.1I  ♦  HCCUN1J.2I  *  HECUN (J .3 1 1/90. 

29S:  IF1HE  AV01J.3I  .NE.OIPHEI  J.31  =  1HELCUMU.1I*  HELCUH1J.2I* 

296  :  *HELCUM1 J. 31 I/1HEAVG1J.3  1*3.1 

2971  IFIHEAVGU.3I.E0.0IPHE1J.3I  =0 

298 :  132  CONTINUE 

299:  IF  (K30.LT.41  GO  TO  300 

3on:c«* ••**•••••**•*•••******•**• *****•••*•*••«••••*•••«•••••*•••••••*< 

30i :c *•*******•*•*•*••• *••**•**•*  *•*•*•*•*•*•*»*••»*••**«**»****•*•*••« 
302:c** ***CALCULATE  OATA  FOP  4TH  30-DAY  PERIOD  IK0=41  .SUSTAINING  PD* 
303:C** ***•••«••••****•** ******** •*«**•*••**•••*•••••**•••**••*•*•••••' 

so* :c  * . . 

30? :  140  00  141  J  =  1.12 

306:  TKAVGIJ.41  =  TKCUH1J. 41 /30 . 

307:  IF1TK AVG1J.4) .NE.OlPTKt J.4I  =  TKLCUMIJ .4  I /TKA VG 1 J.4 1 

306:  IF1TKAVG1J.41 .EQ.0IPTK1 J.4 I  =0 

3091  APAVGIJ.4I  =  APCUMU.4I  /30. 

31(1*.  IF1APAVG1J.4I.NE.0IPAP1  J.4I  =  APtCUMU  .  4  I  /  AP  »  VG  1  J  .  4  I 

31i:  IF1APAVRU.4I.EQ.0IPAP1  J.4I  =0 

312:  ATAVG IJ.4I  =  ATCUM1J. 4! /30 . 

313:  IF1ATAVGU.4I.NE.0IPATIJ.4I  =  ATLCUHU  .4  I /ATA  VG  1  J.4) 

314:  IFI ATAVG1J.41 .CQ.DIPAT1  J.4I  =0 

31S:  141  CONTINUE 

316:  00  142  J  =  1.5 

317:  HEAVG  I J .4  I  =  HECUH1J.4I /30. 

3181  IF1HEAVG1J.4I.NE.0IPHEI  J.4I  =  HELCUH1J . 4  I /HEA VG 1 J.4 I 

319:  IF1HE AVG1J.4I .E0.P1PHEC J.41  =0 

320 :  142  CONTINUE 

S2i:  IF  (K3U.LT. 51  GO  TO  300 

322  :c •.•«»•••*••**•*«••••••«••••• *••••**•***••*•••••••»*•**••»•*«••**• 

323  . . . . 

324  :c*» **»c ALCULATE  C  AT  A  FOR  5TH  30-DAY  PERIOD  1K0=5)  *SUSTAINTNG  PD* 

325  . . . 

326  :c **••*••«•*••••*•••*•**••*••• *•••••.•••••••••«•••***••*****•*•«*»• 

327:  150  DO  1S1  4  =  1.12 

328:  TKAVGU.5I  =  ITItCUNlJ.4  1  ♦  TKCUN1  J.5I  1/60. 

329:  IFITKAVGt J. 51. NE.OlPTKt J«5I  =  1TKLCUM1 J.4 |  ♦  TKLCUM1 J»5 1  I / 

330:  .(TKAVGI J. 51*2.1 

331  :  IF(TKAVGIJ»5I.E0.0IPTKI  J.5I  rc 

332:  A  P  A  VG  I J  *  5  I  =  1APCUM1J.4I  ♦  AF CUM  1 J . 5 1  1 /GO . 

333:  IF( AP AVD1J.51 .NE.0IPAP1 J»5 I  i  1 APLCUM 1J .4  I  ♦  APLCUM 1J.S I  I / 

334:  *(APAVG( J. 51*2. I 

335:  IFIAPAVGIJ. 51. CQ.OIPAPI J.51  =  0 

3361  ATAVG  IJ. 51  =  1ATCUM1J.4!  ♦  ATCUM 1 J  ,  5 1  I /60. 

337:  IFIATAVGIJ. SI. NC.OIPATI J«5I  =  I ATLCUM ( J .4  I  ♦  ATLCUM 14.511/ 

338:  *1 ATAVGI J. 51*2. I 

339:  IFIATAVGIJ. 51. CQ. OIPATI J. 51  =  0 

340:  151  CONTINUE 

341*.  00  IS  2  J  =  1.5 

342  :  HEAVG  (J.5)  =  (HECUM(J.4I  ♦  HECUM ( J . 5 1  I /SO . 
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UNCLAS  SI FICD •• *F IL  E  NAKFJSZXQT  CLEMENT  N  AMCICCM/D  ATA*  *•  UNCL  ASSIrICD 

343:  IF(HE AVO( J.SI .NE.OlPHEI J.5 )  s  (HELCUMIJ.4)  ♦  HELCUMt J»5  )  )/ 

34«:  *(HEAVGI J»5>*2.) 

345:  IFIHE AV9( J. 51 .EO.QIPHEI J.5 )  =  0 

346$  152  CONTINUE 

347:  IF  (K30.LT. 6)  GO  TO  300 

348 . . . ***«•**..•••.. 

349 :c ********* . 

350:C*****CALCUL»TE  DATA  FOR  6TH  30-DAY  PERIOD  (KU=6)  .SUSTAINING  PD» 

.  . . . 

3 52 :C ***•***•*•••»•*•*•*•»**•*»•**••*•»••••»•••••••** •••***•••»»•••»** 

353:  160  00  161  J  =  1.12 

354:  TKAVGIJ.GI  :  (TKCUNIJ.4)  ♦  TKCUHIJ.S)  ♦  TKCUM I J .6 ) ) /90 . 

355:  IFITKAVGI J.6) .NE.OJPTKt J.G I  =  ( TKLCUMt J.4 )♦  TKLCUM (J.5). 

356:  *TKLCUM( J»S)>/|TKAVC(J.6  1*3.) 

357:  IFITKAVGI J.6). EG. 0)PTK( J.6)  =0 

358:  APAVG(J.E)  =  (APCUHtJ.4)  ♦  APCUM (J  *  5  )  *  APCUM ( J  ,6 )  ) /90  . 

359:  IF( APAVG( J.6) .NE.OIPAPI  J.6 )  =  t APLCUKI J . 4 ).  APLCUHIJ.5). 

360:  .APLCUMt  J.G) )/ (APAVGIJ  .6  1*3.  ) 

36i:  IF( APAVGIJ. 6) .EG. OIPAPI J.G )=0 

362:  ATAVG(J.6)  S  (ATCUMtJ.4)  ♦  ATCUMIJ.5)  ♦  ATCUM ( J.G )  )/90. 

363:  IF( ATAVGI J.6) .NE.O)PATI J.6 )  r  ( ATLCUNI J . 4  )  4  ATLCUMIJ.5). 

364:  *ATLCUM( J.6) 1/ (ATAVGI J.6  )»3.  ) 

365:  I F I ATAVGI J.6) .EG.OIPATI J.6 )  =0 

366:  161  CONTINUE 

367:  DO  162  J  =  1.5 

368:  HEAVG(J.G)  =  (HECUHIJ.4)  ♦  HECUMIJ.5)  ♦  HECUM ( J  .6 ) > /90 . 

369:  IFIHF AVGI J.6) .NE.OlPHEI J.G )  S  (HELCUMIJ.4 )♦  HCLCUM ( J . 5 ) ♦ 

370!  *HELCUHI J.6 1 5/ IHEAVG I J .6 )«3. ) 

37i:  IFIHFAVGI J.6) .EQ.O)PH£l J.6)  =0 

372:  162  CONTINUE 

373:  IF  (K30.GC.il  GO  TO  300 

374:  200  WRITE  16 .900 ) 

375:  STOP 

376:  300  WRITE (6.10041  K30 

377 :c .......... 

378 :c«..*. ..................................... 

379:C**»«.HANK  CHANGES 
3sn:c 
3  8i:c 
3  82: 

3  93: 

384: 

3  85: 

386*. 

3  37: 

3  98: 

3  39: 

3  90: 

3  9i: 

332: 

3  33: 

334  :c 
33?:c 

336  :C  ••  •*  *E  NO  HANK  CHANGES 

3 37 :c 

3 38 :c ............. ........ 

3  39:  4  on  0  0  41)  1  1=1.  K3U 
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WRITE (6 .3010) 
WRITE  (6  .101)31 
WRITE (6.1UQ5) 
WRI TC (6.1006) 
WRITE (6. 10071 
W  RT  TE (6.1009) 
WRITE (6 ,3011) 
WRITE (6 .10031 
WRITE (6.10051 
WRI TT (6.1006) 
WRI TE (6  « 1007  I 
WRITE (6.10031 


(II. I  1=1,121 
TK15. TKL15 
APIS. AFL15 
HE1 5. HEL15 
A  T 1 5 .  ATL15 

(II.  TI=l.  12) 
TK3CI.  TKL30 
AP30.  Ar|_3G 
HE30. HEL30 
AT30. ATL30 
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UNCLASSIFIED*"FtLE  NAME  SI2XQT  ELEMENT  NAME :C CM /DAT  A*  "UNCLASSIFIED 


ADO?  1FII.CQ.1I  WRITCtC.lOlO  ) 

AOi:  ZFtI.CQ.2l  WR ITCt  E » 1011  I 

*02:  ZFtI.CQ.3l  WRITE! G. 1012  I 

*03:  IFtl.CQ.*!  WRITE! 6*1013  I 

*0*:  IFtl.CQ. 51  WRITE! 6,101*  I 

*05 :  IFtl.CQ. 61  WRITEI 6*1015  I 

*06:  WRITE t6. 10031  111.11=1.12) 

*0?:  WRITE  16.1005)  t tTKAVG t J .11 • J=1 .12 ) • I PTK t JJ . I ) . JJ=1 .12 1 ) 

*08:  WRITE  16.1006)  t t APAVC t J .1) • J=1 .121 • IP AF t JJ , I ) . JJ=1 ,12  I ) 

*0*:  WRITE  I6.10U7I  t  t HEAVE  tJ  ,1)  ,<J=1 .5  1 1 1  PHE  t  J  J*  I )  ,JJ=1,S  t  ) 

*in:  WRITE t6, 1008)  I t ATAVC IJ  ,1) ,J=1 .12), IPATt JJ.I) ,JJ  =  1 ,121 ) 

mi:  *01  CONTINUE 

*12:  300  FORMAT  tlH  'THTR  CYCLES  LESS  THAN  1  30-0AY  PERIOD* ) 

*13:  1000  FORMAT! 36X.I* ) 

*1*:  1001  FCRNATt3FlG**»/«SF10..  A,/»3F10«*I 

*15!  1002  F0RMATI3Fin.*,/,2F10.*l 

*16:  10U3  FORMATtlH  'EQUIP  TYPE  '  *12 1 3X < I2i 3X > > 

*17:  100*  FORMATtlH  'NUMBER  OF  30-DAY  BLOCKS  OF  DATA  =  '.I2.///I 

*18:  1005  FORMATtlH  *AVG  TK  AUTH'.  12F9.2./.1H  »PCT  TK  LOSS' .12F3.2 ,// ) 

*19:  1006  FORMATtlH  'AVC  APC  AUTH'.  12FS.2./.1H  'PCT  APC  LOSS' . 12F8.2  .// 1 

*20:  1007  FORMATtlH  'AVO  HCL  AUTH'.  5F8.2./.1H  *FCT  HEL  LOSS' » EF8.2 ./ / 1 

*2i:  1008  FORMATtlH  'AVO  ATM  AUTH » .12F8. 2. /. 1H  'PCT  ATM  LOSS  * » 12F8 .2, //// ) 

*22!  1009  FORMATtlH  '3C.-0AY  PERIOD  NUMBER  *.I2.//) 

*23  1C"  •  •••"••••••••••••"***••• 

*2* :c »•*•••*••**•»•••»• *«*•*•**•• ••••*«*•***•••••••»•*••*••**"•••**••••** 

*25  !C  *H  ANK  CHANGES 

*  26  :c .*•••»••«••*«**««**•••*•..••••••.«•.•«*•••**••..***• 

*27  :c  ••«•.••...«•  . . . . . . . . 

*28:  1010  FORMATtlH  27X. 'AVERAGE  30-0AY  LOSS  RATES  "D-l  TO  0-30" 

*29:  •  INTENSE  PCRIQO*.///) 

*30:  3010  FORMATtlH  27X. 'AVERAGE  15-OAY  LOSS  RATES  "0-1  TO  0-15*' 

*3i:  •  INTENSE  PERIOD'.///) 

*32:  3011  FORMATtlH  27X. ’AVERAGE  15-OAY  LOSS  RATES  **D-16  TO  0-30" 

*33!  .  INTENSE  PERIOD'.///) 

*  3* :c .....*••*•••••••* .«••...«•*. 

*3?  :c ..................... 

*36:C"*"EN0  HANK  CHANGES 

*  37  :c  ..*..•»•••  . 

*38 :c ...... 

*39:  10U  FORMATtlH  27X. 'AVERAGE  30-0AY  LOSS  RATES  "D-l  TO  D-EO" 

**n:  *  INTENSE  PERIOD './// I 

**i:  1012  FORMATtlH  27X. 'AVERAGE  3D-0AY  LOSS  RATES  ••0-1  TO  C-90" 

**2?  •  INTENSE  PERIOD*. ///) 

**3:  1013  FORMATtlH  27X ,  *  AV  G  30-PAY  LOSS  RATES  ••0-91  TO  D-120" 

***:  •  sustaining  period'. ///i 

**.s:  lim  FORMATtlH  27X.'AVG  3(J-P  AY  LOSS  RATES  "0-31  TO  0-150" 

*46:  •  SUSTAINING  PERIOD*. ///) 

*47:  mis  FORMATtlH  27X.'AVC  30-P  AV  LOSS  RATES  ••0-31  TO  D-130" 

*49:  *  SUSTAINING  PERICC’.///) 

*49:2000  FORMAT!'  AVC  TANK  AUTH’  .12FS.2/, 1H  'TOT  TANK  LOSS • .12F8 .2/ . 

450:  »*PCT  TANK  L OSS' .12F 8 . 2/ / ) 

451:2001  FORMAT!'  AVG  APC  AUTH ’ . 12F8 . 2/ •  TOT  APC  LOSS' .12FS.2/, 

452:  ••  PCT  APC  LOSS', 12FS.2//I 

4S3:2002  FORMAT! •  AVO  HELD  AUTH'  ,«F5.2/ •  TOT  HELO  l 0 SS ' . 5F8 .2/ . 

*5*:  ••  PCT  HELO  LOSS ' »  5F8. 2/ / I 

*55:2003  FCRMATC  AVG  ATM  AUTH • , 12F8 . 2/ •  TOT  ATM  LOSS*  »12F  S.2/» 

*5F:  ••  PCT  ATM  LOSS'  ,l-’r8.2//) 
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UNCL*SSIFIED»..F ILE  NAHf:S2X8T  CLEMENT  NAME SCEH/O ATA. .*UNCL ASSIFIEO 


FORHATUH  10X.*.**.  FOLLOWING  DATA  FOR  EACH  30-OAY  PERIOD*. ///) 
FORMAT! 1H  27X  »  *  30-0 AY  LOSS  RATE  •*  D-l  TO  D-30»**.//l 

FORHATUH  27X .  •  30-DAY  LOSS  RATE  ••  0*31  TO  0-60.**»//l 

FORHATUH  27X.  •  30-DAY  LOSS  RATE  »♦  0-61  TO  0-90*.*. //I 

FORHATUH  27X .  *  30-0  AY  LOSS  RATE  •  *  0-91  TO  D-120***.//l 

FORHATUH  2/X.*3(l-0AY  LOSS  RATE  *•  0-121  TO  D-ISO**'.//) 
FORHATUH  27X » *  30-DAY  LOSS  RATE  ••  0-1S1  TO  D-150.»*.//> 


SECTIONS  170  ANO  160  CALCULATE  AND  PRINT  THE  LOSS/PCT  DATA 
FOR  EACH  SEPARATE  30-DAY  PERIOD. 


1  DO  171  KT  s  1.K30 
DO  172  J  =  1.12 
AVGTK (J.KTI  =  TKCUMtJ.K' 
AVGAP  (J.KTI  =  APCUM I J  *K 1 
AVGAT (J.KTI  =  ATCUMtJ.K' 
t  CONTINUE 
DO  173  J  =  1.5 
AVGHE (J.KTI  =  HECUMI J.K ' 
I  CONTINUE 
.  CONTINUE 
)  00  131  KT  =  1.K30 
DO  162  J  =  1.12 
IFI AVGTKI J.KTI. NE. 01 TKP< 
IFI AV  GTK( J. KT ) . EC .0  I TKP  < 
IFIAVGAPI J.KTI.NE.OIAPPI 
IFUVGAPt  J.KTI.E3.0IAPPI 

if(avgat(j.kti.nf.oiatp< 

IF(AVGAT(J.KTI.EQ.OIATP< 
!  CONTINUE 
DO  183  J  s  1.5 
IF(4VGHEIJ.KTI.NE.0IHEP( 
IF( AVGHEt J.KTI.E3.0IMEPI 
I  CONTINUE 
.  CONTINUE 
WHITE (6*20041 
DO  191  KT=1.K30 
IFtKT.EG.il  WRITE (6 .201 ( 
IF4KT.E0.2I  WRITEI6.201: 
IFIKT.EQ.3I  WRITE (6 .201 < 
IFIKT.E3.il  WRITEtS.Zr.l  : 
IFtKT.E3.5l  WRITE (G .2U1 1 
IFI KT .E  3.6  I  WRITMG.2011 
WRITE  (C.2CE.QI  ((  AVCTK(  J.  I 
.(TKPCTIJJ.KTI.JJS1.12II 
WRITE (E .2001) (( AVCAPIJ. I 
*( APPCTI  J J.KTI .J J=l. 12 )) 
WRITE (6.2002) ( ( AVCHE ( J. I 
.(HEPCTI JJ.KTI .JJS1.5I I 
WRITE (E .20031 (( AVGAT ( J. 1 
•( ATPCT( JJ.KT) .JJ=1.12 I) 

L  CONTINUE 
END 


TI/30. 

TI/30. 

TI/30. 


TI/30. 


CT(J.KT)  =  TKLCUHtJ.KTI/AVGTKI J.KTI 
CT(J.KT)  =  0 

CTt  J.KTI  =  APLCUM t J.KT t/AVOAP t J. KT I 
CTIJ.KTk  r  0 

CTIJ.KTI  s  ATLCUH(J,KT)/AVGATtJ.KT) 
CTtJ.KT)  =  0 


CTIJ.KTI  =  HELCUMIJ.KTI/AVG HE (J.KTI 
CTIJ.KTI  =  0 


KTI . jrl.121 , (TKLCU*M  J1 .KTI . Jl?l . 12 1  » 
KTI . jrl.lZI , (APLCUNI Jl.KT) .  Jlrl.12  1 , 
KTI , J=l,5 I . I HELCUMI Jl.KT) . Jlsi .5  I . 
KTI . J=1.12l . I ATLCUNI J1 ,K T) • Jl  =  1 . 12  I  . 
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CHAPTER  16 


Utility  -  CEM/LOSSES 

16.1  DESCRIPTION  OF  PROCESSING;  In  addition  to  logical  tested  read  and 
write  statements,  the  program  performs  computations  on  the  data  to  produce  the 
rates.  The  program  has  calls  to  one  subroutine. 

16.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  module  is  to  produce  the 
CEM/LOSSES  file  which  will  be  used  later  as  input  to  the  CONTROL/COMPILER 
utility.  This  utility  will  use  as  its  primary  input  the  S2CEMLOSS1  file  which  was 
produced  by  the  preceding  utility,  CEM/DATA.  Further,  it  also  requires  the  user 
to  provide  a  list  of  specific  CEM  weapon  control  numbers  identifying  equipment 
models  for  which  CEM  loss  rates  are  needed.  Using  this  information  the  utility 
will  read  the  82CEMLOSS1  file  and  screen  out  unneeded  data  such  as  the 
authorization  levels,  and  produce  a  summary  of  the  CEM/LOSS  rates  for  all 
models  of  equipment  in  the  study,  further  it  will  select  the  loss  rates  for  those 
models  identified  by  the  user  in  the  runstream  and  write  a  summary  line  of  these 
loss  rates  and  express  them  as  percentages. 

16.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  III.  16. 1.  The  logic  flow  followed  by  the  utility  is 
pictured  in  FIGURE  III.  16.2.  The  source  code  of  the  utility  is  listed  in  Figure 
III.  16. 4. 


16.1.2. A  INPUT  DATA  AND  DATA  BASE:  The  major  input  to  this  utility  is  the 
82CEMLOSS1  file  which  was  produced  by  the  previous  utility  CEM/DATA.  This 
file  summarized  information  received  from  the  CEM  LOG  report  as  to  the 
authorized  number  and  loss  rates  for  up  to  12  individual  models  of  four  major 
types  of  combat  equipment,  i.e.,  tanks,  APC's,  helicopters  and  ATM's.  It 
accumulates  this  information  by  the  various  time  periods  of  the  study. 

Figure  III.6.5  presents  an  example  of  the  data  found  in  the  file,  since  the  file  is 
produced  in  a  report-like  format  which  is  self-explanatory. 

Also  used  as  input  to  this  utility  is  a  list  of  two  character  CEM  Weapon  Numbers 
which  controls  the  output  of  loss  rates  which  is  produced.  This  list  is  entered  into 
the  runstream  of  the  utility.  Table  III.  16. 1 5  lists  examples  of  these  numbers  and 
provides  an  explanation.  These  numbers  change  from  study  to  study  and  current 
list  must  be  coordinated  with  CEM  Analyst.  Refer  to  Volume  I  for  the  program 
runstream. 

16.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  The  CEM/LOSSES  utility  produces 
the  CEM/LOSSES  file  as  its  single  output.  This  file  will  be  used  as  one  of  the 
input  files  to  a  subsequent  utility,  CONTROL/COMPILER.  The  file  itself  is  quite 
similar  in  appearance  to  the  82CEMLOS51  file  in  that  it  summarizes  over  a 
number  of  time  periods  information  concerning  loss  rate  up  to  12  models  of  four 
major  types  of  combat  equipment,  i.e.,  tanks,  APC's,  helicopters  and  ATM's. 
Further  it  is  formatted  in  such  a  manner  that  it  is  quite  readable  by  itself.  But 
the  file  is  unique  in  that  it  does  not  contain  any  authorization  levels  for  the 
equipment,  only  loss  rates.  Further  the  last  line  or  record  of  each  time  period  is 
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entitled  "R09CEM"  or  "R10CEM"  denotes  the  loss  rates  for  those  Weapon  Systems 
explicitly  entered  by  the  user  in  the  r unstream.  Figure  III.  16.6  presents  an 
example  of  this  output  file. 

16.1.2.C  DATA  ELEMENT  DICTIONARY: 

The  following  section  identifies  and  defines  all  variables  used  in  this  utility. 


NAME 

IPOS1T 

TEMP 

IPERID 

IDAY1 

IDAY2 

PNUM 


DEFINITION 


A  single  dimension  integer  variable  with  22  occur¬ 
rences.  Each  occurrence  holds  the  2  character 
identification  number  of  the  up  to  22  major  items  of 
equipment  that  are  being  analyzed.  If  more  than  22 
items  are  being  analyzed  the  sized  of  this  dimension 
must  be  increased  and  the  utility  recompiled.  This 
data  is  read  from  the  job  stream  using  logical  unit  5. 

This  is  a  single  dimension  variable  which  has  12 
occurrences.  The  array  is  used  as  a  dummy  to  read 
past  data  in  the  **CEMLOSSESl  input  file  which  is  not 
needed  by  the  utility. 

This  is  a  2  character  integer  variable  which  will 
contain  the  number  of  days  used  as  the  basis  for 
calculating  the  loss  rates.  For  example  if  IPERID=30, 
this  indicates  that  the  following  loss  data  will  reflect 
average  30  day  loss  rates,  regardless  of  the  number  of 
days  in  the  particular  period.  This  data  is  read  from 
the  **CEMLOSSESl  input  file. 

This  b  a  2  character  integer  variable  which  indicates 
the  start  day  of  the  particular  time  period.  This  data 
is  read  from  the  **CEMLOSSESl  input  file. 

This  is  a  2  character  integer  variable  which  indicates 
the  ending  day  of  a  particular  time  period.  This  data 
is  read  from  the  IICEMLOSSES1  input  file. 

A  single  dimension  array  of  41  occurrences.  Entries  in 
this  array  will  specify  percentage  loss  rates  experi¬ 
enced  by  each  model  of  major  equipment  type  being 
played.  The  41  occurrences  are  allocated  to  the  4 
major  equipment  types  using  the  following  scheme: 

PNUM  1-12  Tanks 
PNUM  13-24  APC's 

PNUM  25-29  Helicopters 

PNUM  30-41  ATM's 

This  data  will  be  read  from  the  input  file  **CEM- 
LOSSES1.  In  order  to  express  the  input  data  as 
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percentages,  they  are  multiplied  by  100.  Further,  if 
the  loss  data  are  for  periods  w'  ere  rates  are  not  based 
upon  15  days  (i.e.,  1PER1D.NE.15),  then  the  PNUM 
values  are  doubled. 

An  integer  variable  calculated  in  the  utility  which 
indicates  the  starting  point  within  the  PNUM  array 
where  loss  data  being  read  in  should  start. 

An  integer  variable  calculated  in  the  utility  which 
indicates  the  ending  point  within  the  PNUM  array 
where  loss  data  being  read  in  should  stop. 

OUTPNT  A  single  dimension  array  of  22  occurrences.  The 

entries  in  this  array  will  be  loss  percentage  rate  values 
found  in  the  PNUM  array,  which  loss  percentage  rates 
from  PNUM  are  to  be  assigned  to  this  array  is 
controlled  by  the  entries  in  the  I  POSIT  array.  These 
entries  in  the  IPOSIT  array  denote  the  occurrence  in 
the  PNUM  array  (i.e.,  the  CEM  weapon  control 
numbers  which  are  being  played  in  this  study).  That  is 
to  be  assigned  to  the  particular  occurrence  of 
OUTPNT.  For  example  if  IPOSlT=25  it  would  indicate 
that  the  loss  percentage  rate  from  the  first  helicopter 
model  is  being  assigned  to  the  current  occurrence  of 
OUTPNT.  The  values  of  OUTPNT  are  also  the  ones 
printed  OUI  in  the  CEM/LOSSES  output  file. 

ITEMP  A  temporary  integer  variable  which  is  used  to  hold  the 

value  of  the  current  occurrence  of  the  IPOSIT  array. 
This  variable  is  subsequently  used  as  a  subscript  in  the 
PNUM  array  to  identify  the  proper  occurrence  of 
PNUM  to  be  assigned  to  OUTPNT. 


ISTART 

ISTOP 
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CEM  Weapon  Numbers  List  (Example) 


Number 

01 

02 

03 

04 

13 

15 

25 

29 

32 


Example 
Ml  TANK 
M60A1  TANK 
M551  Assault  vehicle 
M48A7  TANK 
IFV 

M113A1  APC 
AAH 
AH-15 
DRAGON 


Table  III.16. 1 


16.2  OPERATING  ENVIRONMENT;  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

16.2.1  SUPPORT  SOFTWARE:  This  utility  requires  the  FORTRAN  IV  compiler 
and  the  UNIVAC  1 166 fti  system  facilities. 

16.2.2  I/O  DEVICES:  The  utility  uses  input  files  which  reside  on  disk.  It 
produces  an  output  tile  which  will  also  reside  on  disk. 

16.3  MAINTENANCE  PROCEDURES:  This  program  is  maintained  by  the  MPP 
analyst. 

16.3.1  PROGRAMMING  CONVENTIONS:  The  utility  uses  one  subroutine  in  its 
structure.  Standard  FORTRAN  conventions  are  followed.  The  subroutine  is 
maintained  as  source  code  in  the  same  element  as  the  driving  program. 

16.3.2  INTERNAL  ERROR  ROUTINES;  There  are  no  explicit  error  handling 
written  into  the  utility.  As  a  result  the  only  error  detection  facilities  will  be 
provided  by  the  system. 
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CKMft. 08889  STRUCTUM 


Figure  III.  16.1 


SUBROUTINE 


TEMP(  I! 
NE 

CT  TA 


i'\rL*ss:r  UD**»r  ilc  na^liooxot  element  ha;>:  :cEN/L0ssts***uNrLAssiriED 


2:C**',*9****<,***’***,l,’»***l!,******<,*»*****<l****,>***,>*‘>******************** 
iSC*****IHlS  PROGRAM  IS  WRITTEN  IK  FORTRAN  IV. 


b :C*****PURPOSC  Of  PhOG«AMs 
7:C<-**** 

c :C«***»  THIS  UTILITY  CALAIS  Cf  M  LOSS  RATES  FOR  EACH  OF  THF  SEVEN 
9:C*****TIH£  PERIODS  ON  ONLY  THCSr  HIT  of  INTEREST  TO  THL  wASF  STUDY. 
10:C*****TH1S  PROGRAM  USES  AS  INPUT: 

II  :C****P  A.  T  HI  OUTPUT  OF  6  2  X  L  T  .  Ct  * /P  A  T  A  (DATA  FILE  StCEHLOSSJ  )• 
12:C*****  P.  FROM  TPt  RUN  STREA-M  THE  Cl*  WEAPON  CONTROL  NUMBERS. 


1  A 
lb 
lb 
It 
17 
lb 
IS 

r  u 
n 
r? 

23 

?b 
7i 
rt 

2  7 
2  a 
?S 

?c 

31 
22 
33 
3b 
35 : 
3b: 
37:2b 
3S: 


0*****THERE  IS  A  “AX1MUN  OF  22  POS I T 1  ON*  OF  OUTPUT  FOR  THIS 
C****A UTILITY,  T H i.1  j  LIMITING  THE  NUMBER  OF  WEAPON  SYSTEMS 
c*****UPON  which  L„SS  rates  can  dE  COMPUTED  TO  22.  THIS  PROBLEM  CAN 
c**<.**t£:  Ei<ii.Y  SOLVED  BY  CHANGING  ThE  APPROPIATl  DIMENSION,  DE  A  D 

c*****and  write  statemfnts. 

C***»*thE  LOSS  RAILS  COMPUTED  HERE  On  £»CH  WARF  MIE  PLAYEP  IN 
C*****CFM  WILL  BE  uSl  AS  INPUT  BY  THL  utility  "  *  2  X  T  .control/ 
Cb****COMPILEI<". 
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Li  I  MEN  SI  On  IFjSIT  (221  ,Tt“P  1 1  ?  I  »PN J  M ( b l  )  .OUTPNT  (22) 

JWL1 

RE  AC  (  E  ,  lu,EK'u  =  2D  1 1PCSI  T  ( JK  I 
FORMA  T ( 12  I 
UKTjK ♦ 1 
00  TO  1 

JKrjK-I 


(■***v*****A#»****<'vbi>****»*bb<'<‘<!  a************************************* 


2 

S'25 


7S 

*»C 

b2 
b  3 
bb 
b!> 
bt 
b  7 
bb 
bS 
*0 
*  1 
E  Z 
T  3 
fb 
EG 
56 
*.  7 
Ft 
E9 
bu 
bl 
b  2 
b  j 
bb 

f  s 
bb 
b  7 


l? 


19 


27 


lb 


17 

BBS 


2fl 

29 


r<EAGI7,2E*EKUPS99MT£*'P(J!,J-l*12> 

FORMAT  U2Afc  | 

If ( TEMP (b  )  .r„. *( LOWIN'  I  GC  TO  3 
IF  1 TE mf  t  S 1 . KL .  *  A  v  *  J  GO  TO  ? 

IF (TEMPI ») .E  «  • •  E  R  A  G  C  »J»E»0(0,26)IPFRIU.1DAY1 
FORMAT ( 3fcX , T. ,21X  ,1  1  I 

If  1  (TE  MP  (b  »  itw*.  *FRA6£  •  >  .  AND  .  «  1 OA  Y  1  ,.N£  .  0  11 RF  AD  (  C ,  1  8  » I  DA  Y ,  ,  I  DAY  2 
FORMAT (SbX  ,  It  ,bX,  li  I 

IF ( ITECFIb »  .lC.’CPAGE  • ».  AND  .  (  UlAYl.EC.O  »  IRTAOir, 19  I  IDA Y: ,1DAY2 

FCRMAT(5bX, II , b  x , 1 7 ) 

I  re  TE  MP  ( 6  l.N-L  .  *EP  AGE  ’  (R  E  Au  (0,C  7  )  I  PFH10, 1DAY1 

FCR’MAT  (32X,T2,21X,I1> 

IFI  (TEMPit  »  .  .1 . ’TRAGE  ♦  » .  A;,P  .  ( IDA Y  1  .Nt  .0  »  IKE AD ( P , 1 b 1 1 D A Y 1 , 1  DA Y£ 
forma  T (EbX , T. ,bX, 121 

IF  I  (TEMP  (b  I  .*£  .  •ER'AC.C  •  t .  *1.9.  ( IDAY1.E0.CI  IREADIC,171IDAYi  ,  1  UA  Y  2 

FORMAT (GbX , I i ,bX ,12  I 

WRITE  «•»  ,bfi  Eli  PL  RIP,  IOAY  I  ,  ID*  V? 

FORMAT ( 3 1 b i 

iFIIPERIti.CP.lS»r,0  TO  2- 

IF  (  (10  A  Y  1  ,{C  .  l  |  ,  and.  I  I  DA  Y.’.EU  .*n»  >00  TO  2  F 
If  IIIDAYl.E'..91).ANC.IiDAVi.EC.l'j»»G0  TO  ?b 
GO  TC  7 

.RITE CR ,29  I ’LMP 
F  (IRMA  T  (  1  2  A  (  | 

CALL  P  N I N  T  X 
r, n  in  r 


C««*«*«**********<<«****#**«A**bA#*******< 

3  1PERI0=30 

b  READ!  7,25 ,E‘u:99b ) I TE MP ( J > , J=  1  ,  1 2  > 

1 F ( TE  MP  C  5 1 • NL • *  30’  I  00  TO  b 

WRITE (S.29ITLMP 
CALL  PRINTX 
GO  TO  3 

£#***#******<!*****■,'*  *«i-  >•*>>****  A  « 


:C*** 
b  b : 999 


STOP 


Figure  III.  16. 3 
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■**  “?’1' 


69:  SUBROUTINE  PRINT* 

7-5  DO  3S  ICll,* 

71 : 5  Nr  At!  I  T,I2,£Njr%9e  H  TEMPI J) ,Jil ,  121 

72:3?  F  ORMA  T ( 1 2  A6  I 

73:C******PlTE:8,8871tCMPUI 
7*:86?  rOf>MAT»,*’,Au,,*,l 

75  x  irilTCHPU>.i»E.*  PCT  T»  I  .  A,,P.  I  TEMPI  1  >  .NC  .  '  PCT  AM 

76  5  2.ANO.  ITENPI !».NE.‘  PCT  H M . AND .  I  TEMP 1 1 » .NE.  •  CT  TAMI 

77:  ICC  TO  5 

7fc  :C*****«FlTEIti,8Sn 

7 V  s  t  P6  FORMAT 1 2 1  X ,  'REACHED  LINE  7 J  •  I 
fu8  1ST ARTlIC  *  12  -  11 

FiS  IFlIC.Ct.IllSIARTr  ?6  ♦  IIQ-JI*S 

P2:  1ST0»:IC*12 

Pis  1F5IQ.CE.3IISTOP:  29  ♦  II 0-71*12 

r-Hs  IF  t  TE  MP  1 1  |  ,  •  CT  T  * '  l°E*UtC«jnt  I  PN'Uh  I J  1  »JlISTART  *  TSTOP 1 

F» a  5  3^  FORMAT  I l*X  ,  12FS.21 

P6s  ir»TEMPi: ».r«.»  ct  tampe*oio,31mpnumoi ,j=ista«t ,istop» 

P  7  s  31  FORMtT«13*,12rs.?» 

p 6  8  NPITE (6  ,fl?S >  IPNUNI J! , Jl IS  TART ,1ST0P» 

89:695  FORMAT  IS*  ,12Ffi. 21 

PJ835  CONTI  NIC 

:C*** *********** ************* ***•*««•« *«*•**•«* *•***•**••*«•*•*«**•*** 
9.8 C *•**•*«*•* •***•*»■»**»•••••*•** ****** ********* «*****••«****•* ******** 

93:  CO  39  10  =  1, *i 

«r:  PNUMI  II I  iR.U'.ltlO  1  *ICJ 

95839  CONTINUE 

96  SC »* A**************************************** ************************* 
9 7 :c***»*»**** •*•**«««•****•* »*«**«****• «*• »•*•**» ««*••*** ****** ******** 

°6  :  1FUPE'«I0.NF.15»G0  TO 

99 sc***** ********************************** A**************************** 

1  '’CSC ********** *••*»*•«•*•*•***•*«*•*******••••••••*••*•*••*•*•»••••*•*•• 

lnlS  CO  IS  1011,*. 

102:  PNU'MK'11RNU'M1Q1*2 

I'M:!*  CONTINUE 

ITh 5 c** ******** ****•**.»  *•*«**••** a*********************** •****•*•••*•*•»• 
1^5 5 C A********************************************* A********************* 

1065*0  OC  *S  1011 ,JA 

1  r7  :  IFClPOSITlIU.EC.Ol  CUTPNTUOltJ 

1 ni  8  IF ItPOS.Ttlwl.EQ.JlGO  TO  *S 

ITS!  ITEMPIIPOSI  Ul6l 

1 10  8  OUTPNT  1 Ij  >!P.,UhUTE*PI 

1 1 1 5  *  S  CONTINUE 

112:  1  STOp  1 1  3 

113:  1Fijk.lT. 11  l.SlOPiJK 

i 1* :  OF  IT' I J ,S~1 IvTOP, TOUTP  IT  I Jl ,Jll  .IST0P1 

1U:5C  FCRMAT  I'KCVCtM  CI-MTJtl3F7.ll 
1 1 b  8  C** 
i 1 7  8C** 
lib: 

119: 

120: 

1"1: 

122:51 
123:55 
1 2* : 56 
125: 

1268998 
127: 


Figure  III.  16.4 


iriJK.LT.12»u0  TO  S5 
I  STo°i?2 

if: JK .LT .22  liSTOPlJK 

WRITE  : F  ,5lll5TOP,ICOTP.NTl  J» , Jil 2, 1  STOP > 
FORMAT  I  MICCEM  12-*  ,12*1  3F7. 1  ) 
WF1T-CMS6) 

FORMA  T 1 1 X // // / I 

RETURN 

STOP 

END 
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UMCL»SSIFI£n»»»CX»«>LC  OF  CFW.CSS1  OUTPUT  3»T*  FROH  UTILITY  CFH/IMT* 


CJ  K> 

SB 

Ci  N 

O  VI 

ft  ft 

ft  L 

O  O 

r j  in 

C  K 

o  V 

a  5 

•  4 

•  * 

•  • 

4  4 

4  4 

IN  ft 

0 

tN  V| 

V* 

N 

ft  IV 

el  H 

V- 

M 

o  m 

G  ft 

Up 

U  N 

o  r< 

C  P 

O 

a  m 

ci  5 

U  « 

u  • 

o  o 

o 

U  ft 

O 

•  i 

•  i 

1  4 

P 

•  • 

4  4 

4  4 

o 

M 

ft  ft 

ft 

E 

pH  K 

CJ 

M 

e4 

a 

Ui 

ft 

R 

M 

ft 

vl  # 

X 

u 

H 

ft. 

Ui 

ft 

ft 

u 

in 

gs 

PC 

gg 

u 

PS 

B  S 

B8 

Ui 

in 

Pf 

X 

•  i 

4  4 

4  4 

i" 

4  4 

4  4 

4  4 

X 

UJ 

Q  m 

m 

G  10 

0> 

Ui 

3 

ft 

v*  m 

IV 

Uj 

vl  IN 

0 

4- 

r 

fSI 

V 

n 

X 

M 

r 

H 

o 

9  i* 

O  Q 

C  v> 

D  m 

ft  Q 

c  cc 

O  ft 

Q  O 

O  0^ 

cr  n* 

c  3 

a  e 

•  « 

4  • 

l  • 

4  4 

•  4 

4  4 

<n  in 

10 

01  o 

0 

Vl 

ft 

V- 

H 

a  ft 

O  0 

Q  « 

o  o 

O  H 

a  «j 

8g 

c*  • 

D  IO 

c  m 

c.  c 

O  0 

ft  v. 

•  • 

4  4 

4  4 

4  4 

•  4 

4  4 

«o  m 

(0 

m 

■3  N 

« 

V4 

0 

(V 

IV 

O 

m 

*H 

Vl 

ft 

el 

• 

O  in 

o  a 

O  ft 

• 

• 

d  a 

a  0 

O  01 

• 

d  U5 

o  *-* 

c  o 

o 

c  m 

a  n 

O  m 

• 

c  a 

in 

•  4 

4  • 

•  4 

VI 

•  4 

4  4 

4  » 

ft 

ft  * 

v» 

10 

1 

* 

01 

m 

Vl 

1 

ft 

In 

a 

V» 

0 

ft 

e 

vi 

o 

-4 

O 

o 

►- 

o 

►* 

d  io 

a  ft 

a  a 

a  v 

O  0 

O  N 

o  o 

o  m 

q  0 

a  ft 

10 

O  0 

a  in 

O  W 

c  c 

ft 

•  * 

4  4 

4  4 

n 

4  4 

4  4 

•  4 

4  4 

i 

io  m 

ft 

ft 

1 

10  0 

0 

0 

1 

o 

m 

• 

o 

IT. 

o 

* 

ft 

• 

• 

• 

• 

• 

in 

a  0 

Q  m 

a  Vi 

O  N 

VI 

O  (N 

a  io 

O  vl 

ft  N 

m 

O  3 

o  ft 

O  ft 

a  vi 

a  co 

Ui 

a  » 

o  o 

O  IN 

4  4 

O  K 

ui 

c  c 

ft 

•  i 

4  4 

4  4 

4  4 

V- 

4  4 

4  4 

4  4 

4  4 

0 

in  N 

H 

o 

N 

« 

m  in 

IN 

0 

40 

0 

cn 

a 

ft 

• 

01 

DC 

o 

V| 

a 

IN 

VI 

in 

in 

VI 

in 

m 

o 

a  m 

3  ft 

o  m 

3  O 

o 

o  o 

O  K 

a  m 

o 

o  m 

-J 

O  Q 

O  -4 

o  V- 

O  Q 

-J 

a  vi 

a  in 

IN  0 

10  o 

-I 

ft  vl 

ft 

X  0 

vi 

N 

► 

0  0 

►» 

0 

0 

► 

0  0 

0 

N 

ft 

ft 

* 

M 

el 

IN 

« 

ON 

a 

M 

o 

VI 

el 

p 

Vl 

10 

0 

1 

in 

i 

a 

ft 

O  Q 

a  to 

a  ft 

ft  cn 

H 

O  v« 

O  CD 

a  u 

V)  0 

V 

O  vl 

a  o 

a  ft 

O  0i 

in  a 

IN  10 

O  N 

O  V* 

O 

CC  IN 

U 

•  * 

4  4 

4  4 

4  4 

UJ 

4  4 

4  4 

4  4 

•  4 

4  • 

H 

u> 

X 

m 

ft 

O 

v»  VI 

oo 

m 

H 

a 

Vl  ^  Vl 

< 

X 

in 

♦ 

X 

0 

IN 

m 

0 

fN 

0 

a 

N 

In 

a 

IN 

a 

ft 

Ui 

ft 

N 

u 

H 

VI 

0 

> 

> 

o 

« 

aft 

K  H 

Q  r'j 

41 

at 

V*  N 

M  Q 

83 

o  o 

O  ft 

O  ft 

m  o 

3  c 

IO  vl 

C  co 

r-  o 

fc 

n  m 

VI 

v> 

N 

in  m 

O 

IN 

0 

M  « 

n 

ft 

ft 

m 

VI 

Vl 

0 

n 

• 

m 

in 

a 

K 

10 

0 

8 

*4 

M 

N 

IN 

Vl 

O 

a  n 

ft  rv 

3  a> 

VI  o 

VI  40 

o  e* 

ss 

v>  a 

V-  o 

-J 

X  ft 

in  «-4 

v  ft 

ft  o 

<n  m 

IT  H 

in  a 

Ui  vX> 

c 

•  * 

4  • 

•  4 

4  4 

4  4 

4  4 

•  4 

ft  0 

ft 

m 

M 

e4  H 

IO 

vl 

vl 

•N  0 

► 

10 

vi 

ft 

01 

• 

tt 

0 

IN 

0 

ft 

N 

IN 

* 

0 

0 

0 

m 

0 

Q 

ft 

ft 

rl 

Vl 

el 

O 

v> 

x  in 

P  ii 

x  m 

P  VI 

X  VI 

P  VI 

jr  vi 

P  v» 

x  in 

P  in 

x  in 

P  in 

x  in 

P  m 

x  in 

P  m 

X  0 

P  0 

U3Q 

£  «j 

3  O 

3  O 

n  o 

W3C 

3  O 

3  o 

3  O 

uj  3  O 
ft  0  J 

u 

0  J 

0  *J 

•«  _i 

ft  «  -1 

«  «J 

0  -1 

0  -i 

o 

>* 

>• 

>“ 

i- 

u  u 

-J  -J 

X  X 

V 

o  u 

-J  «J 

X  s 

a 

CL  CL 

V* 

»-  1- 

X  X 

U  ft 

y* 

v  4- 

X  x 

Ul 

a.  i-  *- 

<  * 

<  X 

ft  H  V 

4  0 

0  0 

ft  4-  ft 

t 

3  O  ft 

13  ft 

a  4- 

O  1- 

3  U  U> 

O  1- 

o  V 

O  v 

Sot- 

a 

o  >  t) 

5S 

sg 

>  i> 

o  >  y 

>  u 

>  u 

O  >  c 

i 

UI  0  i 

«  ft 

U  *  ft 

«  ft 

0  ft 

0  ft 

Ul  0  ft 

v.  04  VI 

tf  in  Ui  h 

noiCH 

N  K  «  kliC 

KlOrtH 

IN  ►.  0 

Vi  U  K  Q.. 

0>  c  vi  N  v.  0  in 

co  r»  m  0. 
WMM  V 

C  H  In  v 

0  in  w  k  « 

O'  C  V  N  V. 
#  in  ifl  mir 

0  Ul  LO  ft 

•4 

H  H  H  H  H 

H  H  *4  N  N 

IN  ^4  IN 

NMMMVVKI 

0  0  0  0 

IT  IT  III  If 

Figure  III.  1 6. 5 


367 


UNCLOS  STF1£D««*£X*MPIF.  OF  COLOSSI  OUTPUT  0»T»  FBOH  UTILITY  CCM/OMa 


88  88  88 

I  I  II  IM 


88  88 

i  *  t  l 


88  a  88  88 


ft  H 

b- 

ft 


88  g  88  88 

*  «  B  i  i  i  • 

W  O 

H*  n 

8 
H 

88  88  88 

i  i  ii  ii 

W> 

88  88  88 

■  *  ii  ii 

88  :  88  88 


88  83 

i  i  •  • 


88  88 


88  88 

l  i  i  « 


88  88 

•  •  i  i 

i 

83  88 

•  •  i  « 

» 

88  88 

i  i  •  • 

88  88 


o  d  a  <r  ea  a 

a  a  a  m  a  a 


O  O  Q  O  □  9> 

o  o  a  a  o  k> 


a  a  o  o  ah 

do  o  a  on 

•  •  •  •  •  • 


o  o  a  m  a  h* 

no  *■  *-»  «  *4 

M  H  # 


a  m  a  o  a 
oh  a  a  a  ® 

•  •  •  •  •  • 


8n  o  a  hi 

h  o  a  Ml 


a  «n  o  o  ro  m 

o  »  o  c  HI  H 


Old  HI  o  o  o 

«J  «  91  ft  O  O 

•  •  I  I  I  I 

I  N  HI 


o  a  h  hi  o  a 

N  If*  id  "  O  Q 

•  •  •  •  •  • 


SB  88  88 

ft  n  ' 

O 


£  £  9  *0  K>  <9 

ON  *  U5  HO 

«  •  I  i  •  • 

N  HI  p*. 

ff  N  ^ 

HI  H|  ^ 


RS  SS  88 


H 

N 

H 

H 

HI 

H 

X  ^ 

H-  L*l 

5  8 

5« 

58 

X  in 

P  in 

58 

x  in 

P  m 

x  in 

P  m 

x  in 

P  o 

5  8 

O  O 

ft  .J 

33 

33 

*33 

o  o 

ft  «J 

9  O 
ft  -J 

9  Q 

ft  3 

yao 
ft  ft  -i 

9  O 

ft  -4 

9  9 
*  -1 

o  u 

H  -J 

X  X 

H- 

o  u 

•J  «J 

X  X 

>» 

U  U 

<J  -J 

is 

¥* 

H  1- 
*  ft 

..25 

as 

H»  H 

ft  ft 

iSS 

** 

¥* 

O  H 

O  h 

O  H 

Sot- 

o  •- 

U  1- 

©  K 

So- 

a  ►* 

U  H 

Sid 

58 

5t 

ssy 

sk 

58 

Si! 

obu 
u  ft  E 

S  id 

Si! 

Q  H  N  HI 
w  o  y»  u 

ssss 

•  fCrtNWfifiKhMfOH 
UldKM»l>r>M>hNN«lfl 

N  HI  ft  Wl 

*  te  «  ■) 

9?"£fTi£)Sifc£ 

MrayNKiibi 

•rraooooo 

*  f'  4  O  4 
Q  O  Q  O  h  H 

Figure  III.  16. 5  (Cont) 


€8  an*  *  Wjj 


UftCLAS SI FIED...E  XAMPLt  OF  CCNLOSS1  OUTPUT  DATA  FROM  UTTLITT  CCH/DATA 


h 

U 

88 

88 

88 

88 

SB 

SB 

* 

N 

1  * 

*  * 

H 

8 

2  ° 
o  u 

s 

00 

¥* 

m 

88 

88 

M 

■ 

§8 

00 

CO 

88 

• 

t 

*  » 

*4 

i  0 

i  i 

£ 

•  i 

H 

*  • 

•  • 

*4 

H 

s 

ff 

8 

■ 

M 

BP 

88 

8  w 

S 

8  B 

8  B 

8B 

O 

►» 

in 

3 

O 

s 

H 

v» 

VI 

8 

88 

88 

88 

88 

88 

83 

f> 

* 

8 

88 

88 

88 

88 

88 

88 

M 

© 

8 

6J 

83 

88 

O  O 

a  o 

88 

S3 

• 

»* 

• 

N 

IT 

r* 

§ 

Q 

O  Q 

c  o 

88 

88 

a 

88 

88 

83 

s 

Ift 

2 

SM 

w* 

*-» 

fl 

«i 

a 

O 

Q  a 

a  a 

D  y> 

a  a 

e 

o  o 

a  a 

So 

O  O 

o 

• 

Q  O 

a  a 

O  O 

o  a 

• 

o  a 

a  o 

o  o 

w» 

a 

in 

o 

w 

N 

w 

s 

*• 

r* 

o 

* 

a  m 
a  a 

83 

85 

a  2 

QC 

O  m 

o  a 

33 

2  «■ 

¥1 

a  I* 
a  o 

• 

V| 

•  • 

•  • 

•  • 

•  % 

N 

U» 

VJ 

0  * 

•  • 

•  • 

•  • 

o 

N 

N 

o 

N 

M 

id 

•J 

•4 

-» 

Kl 

^4 

• 

>* 

< 

a  a 

a  ui 

O  O 

O  u> 

► 

« 

a  r- 

O  9 

O  O 

o  m 

•4 

© 

o  a 

a  h 

e  a 

o  o 

a 

O  •* 

O  n4 

o  o 

o 

w  * 

r- 

18 

o 

0  * 

K 

si 

M 

wi 

© 

a 

in 

m 

0 

o 

»s 

K! 

** 

a 

K- 

> 

s 

3 

8S 

85 

88 

88 

8  S 

8  s 

88 

88 

f>4  •> 

«* 

<T 

«s  m 

* 

C 

in 

u 

o 

m 

<N 

N 

m 

1* 

N 

in 

*4 

8 

85 

85 

8  § 

a  a 
e  o 

O  * 

O  n* 

85 

8S 

83 

* 

H  • 

O 

N 

m  *n 

a 

r* 

* 

fl 

in 

f* 

itf 

0 

jn 

r» 

* 

N 

N 

♦ 

M 

M 

a 

ffa 

X  V* 

P  V> 

2« 

28 

X  in 

P  M 

x  v* 
v» 

X  VI 

P  VI 

X  I.'* 

P  y» 

© 

3  o 

3  © 

3  O 

3  O 

y  30 

E  <  -4 

3  O 

3  O 

3  O 

-i 

C  4  J 

*  -4 

«  -4 

«  -1 

* 

«  -J 

*  J 

r 

V* 

O  U 

«J  «4 

*  X 

u  u 

^  -1 

x  r 

►» 

< 

*  X 
a.  k  »- 

ss 

*¥ 

»-  ►* 

X  X 

aa 

>  ' 

0  < 

3  O  k  O  ^ 
<3  >  o  >  U 
u  «  Q»  m  a 


^  ^  o  H  f%  ^  «  t'W^<firO«NM4i 

I  p4  ^  N  M  N  N  N  M  N  N  N  P»*  *p  | 


?rtNr*k’.  gNnO'CHN^IwU.Mfiirjptf-ilF*),  yi  f*  ».  »»■  C  t«A 
^  Mt  «  «  ^  »  -*  »  •  #  »  ^  «4'  ¥1  W«  Ml  Ml  *T  l*''  Ul  M'  U>  t«i  Ul  if  <0  u' 


Figure  III.  16. 5  (Cont) 


369 


AVO  30-0AT  LOSS  RATES  ••D-91  TO  0-1S0*.  SUSTAlftTRF  PtRIOO 


i 


UNCL*SSIFirr*»»£X**PLE  OF  CtHLOfSl  OUTPUT  0»T*  PROP  utiltty  cew/hrt* 


uUS 


egg 


n  ■> 

n  w*>  n 

*  to 


u  o 

w-ig 

R  • 


S  *8 


B8B 


858 


n  hi 

hRB 
R  * 


e  K 

*?^g 


o  t9  o 

d«  5 


BBfe 

i  i  i 

OOP 
DUO 
•  «  • 


BeSB 


U  M 

'i'JB 


Bsa 


bp? 


^  M 

Si  • 


P  SB 

•  t  • 

o 


PBP 


ggg 


Stg 

P  • 


g- g 


ggg 


O  VP 

°  •  8 


gsg 

i  i  i 

VI 


ggg 


OHO 
pro 
•  *  » 


*M8  ?88 


*  •  • 
f 
* 


8Sg 


o  h 

•?*S8 

*  • 

m 


gsg 


o  ®  O 
c  •  e 


o  m  o 
cro 
*  *  • 
N 


*?8  §R8 


Q 

9 


»  »  t 
O 


o  •>  o 
o«o 
•  •  * 


D  9 

Hi  • 


ONO 
Q  H  £ 


o  *  e 

O  VT  Q 


1H 


ss 

U»  H 

X  t>  vt 

5  S!S 


8S8 

t  i  I 

S 


R38 

i  i  « 


Q  Q  6 
*  »  ♦ 


Cl 

ua 


3  0  0 
«  U 


o 

01 

I 


O  VI 

^g 

N  • 


Q  9  O 
QNO 
i  i  t 


8S8 

•  i  • 

8 


8 

H 

I 


O  V9 

P  • 


g*8 

%  *  i 


«  .H  « 


3  V> 
OPP 
•  •  N 


*  H 
X  IP 

*  u  3 

X  X 
XXX 


gas 

I  I  « 

N  W 
a  or 

v>  ip 


X  1**  V* 

5So 

9  -J  .J 


888 


?§S 

•  •  • 


IWIfl 
P  IP  kl 

3  0  0 
9  -I  -) 


***?« 


9  »"* 

10  ft 

3 


a  k 
a  v>  9 


so  a 
r-  r 


x  n 

BBS 

^  JO 
-J 


10  HI 

ra  • 

IT  HI 
IP 


O  IT 

9>  r- 


X  il  i*> 
H  IP  VI 
3  0  0 


0^0 
•  •  • 

19 


c  H  9 
o  >  o 


x  o  r 

BBS 

9  «J  -1 

o  o  o 


o  o  o 
O  v  o 


888 
t  •  • 


3  0  0 

i  *  • 


CUV 
3  0  0 
«  _l  -J 


h  h 

9  9  9 

«t  x  x 
h  h  9 

U.  a  CL 

4  4  4 

H  H  H 

9  9  9 

V-  *-  « 

a.  o.  a. 

4  4  4 

¥¥¥ 

h  h  h 

999 

U  H  H 

a  ►  v* 

h 

O  H 

C»  V*  H 

O  H  * 

O  ►»  H 

O  k-  ^ 

«  H  H 

o  ►  ► 

o  »-  h 

>  o  u 
•  £ 

x  o  u 

>  O  k- 
9  H  W 

Sgg 

>  o  u 

4h£ 

>  o  u 
<  a-  & 

Sgfc 

5?B 

>  o  o 
*  >■  K 

igp 

c 

v> 


c 

o 


c 

ISl 

m 

o 

o  fsi 

O  K  19 

O 

O  9 

o  •  m 

O 

K 

M 

o  ci  o 

o  IO  o 

Q 

H* 

DO 

0  9  0 

o  o  o 

OHO 

O  H» 

o 

O  H  c 

e  c 

O 

*0 

• 

• 

* 

OHO 

«4 

•  •  o 

C 

r 

«  •  • 

O  p-  c 

H 

•  •  c 

O  19 

o 

•  t  • 

O  H» 

c 

fv 

c 

? 

l  i  « 

19 

m  » 

• 

• 

• 

O  9 

•  •  • 

ti 

9  • 

•  • 

• 

3  HI 

%  • 

• 

•M 

9 

r 

1 

N 

9  H 

m 

1 

9> 

9  H 

o 

1 

N 

o 

O 

N 

9 

o 

IN 

v> 

o 

• 

♦ 

• 

r- 

9» 

• 

3  O 

H  H  H 

• 

O  9 

8  9  19 

• 

4A 

• 

m 

O  •  91 

O  •  19 

l 

C4 

P 

HI  4  N 

O  9  N 

o  io  m 

O  91 

o 

VI  VI  PM 

o  91 

H 

• 

• 

* 

0*0 

Ui 

•  •  O 

H 

5 

•  •  • 

0  9  0 

IJ 

•  *  o 

O  • 

o 

•  •  t 

o  o 

o 

w 

N 

•0 

1  1  i 

H 

as  • 

% 

• 

• 

<o  ^ 

•  •  • 

*- 

9  Ml  • 

«  • 

• 

91  9 

•  • 

• 

•- 

N 

p4 

N  * 

< 

H* 

N 

IN  HI 

9 

N  H 

9 

IN 

N  M 

9 

*  H 

« 

HI 

H 

19 

X 

HI 

IN 

9 

or 

M 

VI 

H 

VI 

H 

M-i 

§ 

K 

0> 

00 

p»  9i  h* 

10 

O 

00 

00 

0 

H> 

• 

Wl 

9  h  o 

0  9  0 

P-  9  O 

IP 

o 

o  o 

O  o  o 

O  O 

19 

OHO 

3  9  0 

O  HI 

a? 

IP 

O 

• 

• 

• 

«*  N  H 

•  •  O 

H 

HI 

N 

•  to 

U>  91  *4 

-J 

•  •  o 

e  9 

H 

•  t  « 

C  H 

O 

-I 

W) 

•  •  « 

9  • 

• 

• 

K 

»  1  1 

9 

•  « 

• 

9 

i  « 

• 

p4 

K  19 

► 

IO 

'O 

o 

9  19 

► 

VI 

K  9 

19  O 

► 

V*  <9 

* 

N 

O 

H»  H» 

9 

9  k9 

O  k9 

9 

io  r 

wi 

*P 

10 

HI 

r 

fcK 

o 

1 

Ml  10 
M 

K* 

f 

O 

O 

O 

O  9 

oho 

e 

O  HI 

O  9  Q 

C 

_  -  .  _  _ _ _  ..  .  ,  _  _  . _ _ _  .  I  «  fc.  V  h  c  r  c  4  N  r.  *  kl  U  I*  r  P  Q  H  M-'  «  It. 

9  9  9  9  9  9  Ml  VP  Ml  IP  IT. 

NNr)N^iNNNNNNNNNNNN.'JNNNN^NNNN^NN^IN^»Nf4^NNMNNNN^t'^NNNN^NN^^'WN^ 


Figure  III.  16. 5  (Cont) 


371 


0  to 

0  *  Ll 
*  *  to 
•4  * 

856 
•  *  % 

• 

to 

fcSB 

•  ft  • 

rs  to 

H*.b 

n  • 

H 

t>  J  8 
»  •  » 

r 

eft 

888 
ft  •  ft 

©  •" 

“r;  8 
w  • 

SJS8 

1  *  « 

* 

* 

888 
•  •  ft 

l»*t 

‘J’ig 

to  • 

SK8 

*  •  • 

0 

tfl 

588 
•  •  • 

U  N 

^8 

•  » 

r4 

hSB 

1  l  1 

S 

•4 

tittB 

ft  ft  ft 

U  to 

•MB 

r  • 

H 

P68 
•  •  » 

*» 

N 

eft 

KBB 

ft  •  ft 

O  to 

Hg 

ft  ’ 

838 

1  »  l 

a 

888 

«  •  ft 

O  » 

8 

to  • 

N 

8*8 
•  •  ft 

R 

888 

ft  ft  ft 

tto 

"  “  8 
r  • 

to 

8*8 

1  t  1 

6# 

• 

888 
•  •  ft 

• 

Q  • 

*3  *28 

•  • 

to 

858 

ft  •  ft 
*« 
to 

888 

•  ft  • 

m 

0  r 

©  *9 

gjr  9 

8£8 

O  * 

®  ^  g 

858 

8S8 

*  •  6 

K  * 

WWW 

1  «  1 
to 
to 
*4 

t  •  i 

D 

N 

«4 

• 

J  • 

ft  e  • 

* 

w 

•  •  ft 

*n 

»• 

0  m 

o  +  ft 

g£g 

§Pg 

e 

m 

O  N 

^  O  g 

ggg 

§58 

to  • 
to 

O  to  O 

•  •  ft 

a 

ft  •  • 

m 

2 

0 

Vs  • 
to 

ft  ft  ft 

H 

•ft 

ft  ft  ft 

to 

0  0 

*•«« 

Ki  ft 

§58 
•  •  • 

N 

on«< 

0  to  O 
%  •  • 

S" 

to 

888 
ft  ft  ft 
to 
to 

*> 

•4 

1 

a 

O  *  _ 

•?-.8 
•0  • 

one 
©  to  5 

ft  ft  ft 
to 

O  to  eft 

£  *  0 
•  •  • 

sH 

to 

OOP 
O  to  O 
«  ft  ft 
to 
•4 

*  •  •  h 

N  * 

*  m 


u.  K 
o  o  w 

l»-  to 

•t  x  « 
HU.W  • 

32  *  5 
8i«5 


W  h  16  r  c 

IT  c  «  *rt  C' 

rs‘  to  m  to  to 


SS9  '!*'? 

*  •  *  «ft 

to 


X  0VI 
to  to  to 

X  V  V 

5  IS  IS 

X  0VI 
©  to  to 

OOO 

«  to  to 

2  0  0 

«  J  J 

4i  to  to 

0  O  U 

533 

X  X  X 

S5S 

888 

to  to  to 

4  4  4 

0  to  to 

O  to  to 

t»  to  to 

5g§ 

588 

588 

to  *  •  ctfKff£5s5 

ntotortotore*toOO 

NNNNNNNNNWW 


N«|  WjJM 

OO60OOI 

m  h  n  w  n  h  1 


«•,  «  Ml  r  C  N  «  •  >*  yi  t*  •  f 
IMHHf^KNNNHNNNriNN 
iMKIW^tnWwnKIWMhWMW 


1  I  ^ 

*  W  o 

9  to  l« 

»  V)  * 

a  at* 
S!tc" 

5*85 

*  t»  >-  - 

^  esj? 

09  « 

occc 

«t  ui  * 

wF  o  *• 

8S38S 

to  to  to  to  to 

2  X  X  X  to 

*  *  »  *  (L 

00  vox 

wtuti 

«  %  *  •  11 

0  *  &*  *  £  fc. 
p,  n  r  M 

MKnowwm 


Figure  HI.  16. 5  (Cont) 


372 


U«CL*SSIFI£0«**CIANPU  Of  THF  OUTPUT  f  OOO  UTILITY  Cro/LOSSES»»»UNCL*SS  ITICO 


o  y  u 

O  ti  u 

I  •  » 


gg  g 


ay  & 


88  8 


gg  8 

i  I  • 


o  o  a 

O  O  Q 

Oft  • 


fle  o 
O  Q  O 
•  o  o 


83  8 


88  8 

•  ft  • 


9*  9 

a  h 

• 

O  Q 

a 

9  U 

* 

o  » 

HI 

a  o 

Q 

•  ft 

•  O 

•  • 

*  O 

*  i 

•  Q 

«  U 

*  • 

•  NO 

H  • 

• 

•  9  N 

N  fd 

•  Q  * 

H  N 

• 

N 

• 

9** 

O  -ft 

49 

• 

N 

* 

HI 

s 

H 

1 

* 

1*3 

O  ft*  H 

HI 

O  O 

°8S 

•1 

*  o 

o  88 

3a 

•  • 

•  • 

O  •  • 

ft  ft 

ft  ft 

ft  ft 

O  49  HI 

va  <y 

»-  9  r 

*  a 

o 

9- 

ft-  H 

M  f- 

HI  •> 

a  v« 

H 

N 

H* 

VO 

-ft 

H 

H 

rft 

1 

Q  d  H 

o  o 

A  •  * 

n  a 

A  a  a 

Q  O 

•  *  m 

K  ft 

•  r  n 

H  • 

•  o  o 

Q  • 

O  Q  J 

Q  a  o 

•  ft  •  o 


S  8  o  8  c 

H  •  ♦  ft  • 


o  a  os 

•<oo  o  • 

•I  •  ft  •  -ft 


k  •>  «n  n  « 

h  k  h*  u,  » 

V>  •  *  •  ■  N 

*  N  H  N 

OH  * 


►  • 
4IAN  tAOa 

o  o  **  k  a  h 

i  •  •  •  • 


t  N  Vi  H  N  ft 

t  Q  N  h  t 

Irt  •  •  •  ft  HI 

WtftN  ■* 

O  *0 

J  a 

►  • 

4QMNUO 
OHk‘*JN 
|  ft  ft  •  • 


«  O 

ttoor^Q  • 

5  o  n  o  h* 

irt  •  •  •  •  N 


<NOMSN 
Oh3«TQh 
I  ft  ft  •  • 


r  .  o  W  o  • 
UiOOOCh 

H  •  ft  ft  ft  rO 


Q  t  Q  H  Q  9 

•j  a  a  h  c 

•  •  •  • 


8 

<0«M* 

*  O  H  t"  O 

Ui  ft  ft  ft  ft 

»  I 91 

<  ftn  a 


8  N 

<  H  i9  O  fl  N 


«  O  Hi  O  V  ft 

OC  m  HI  O  H 

tu  •  •  •  • 


n  N  HQ  9  0 
•  fa  O  O 

Q  ft  •  ft  ft 


9*  H  N  O 
O  H  H*  O 

ft  ft  ft  • 


N  N  191  Q 

o  h  w  a 
•  •  •  • 

N  O 


VMAQD 
O  H  C  O 
ft  ft  ft  ft 


w  •  o  a 
o  o  o  a 
•  •  •  • 


N  N  U  a 
H  H  H  O 
ft  •  ft  •  ( 


•  l*  Q  VJ 
NHIXQ 
•  •  •  •  < 


O  H  r*»  O 

•  M  ^  O 

•  ft  ft  «  Ql 


MHWQ 
N  H  O  O 

•  •  ft  ft  1 


|in00tih«flOH 


NHI*M'»0r*«ICO 

*ft-4H*4mHHHN 


H  fi  K*  9  HI  4  N  «)  0<  Q  H  I"  9  ft)  w  H  «  r 
NNNhNNNNNHft»rHOM»‘l'Uolo« 


9  *  -9  9  9  9  •  49  »  »  b>  *  IT  I 


Figure  III.  16.6 


J0-0*Y  LO^S  ROTE  ••  0-1  TO  D-30»* 


UNCL«SSIFIEO»»»EX*HFLE  OF  THE  OUTPUT  FROM  UTILITY  CrH/LOSSES***UNCLXSSIFIED 


C  l 

u  t~ 


Cj  L 

•  * 


C3  O 
o  c 


O  Cl 

o  o 


o  o 
o  e 


c  o 
&  c 


o  o 
c  c 


a  a 
c  o 


o  o 
o  a 


o 

D 

•  a 


o 

a 


o  o 
a  a 


o  a 
a  o 


o  o 
o  c 


o 

10 


o  o 
o  o 


o 

o 


o 

o 


a  o 
o  c 


So 


a  a  o  a 
o  o  a  • 
•  •  •  m 


COfO  * 
c  c  it  cr  * 

•  •  •  •  M 


*0 

I 

o  a  o 
Q  Zi 


a  o 
o  • 


O  O  a  m  o  • 
CQMOf 
•  •  •  •  •  N 


O 

O’ 

I 

a  a  a 
a  o 
o  •  • 


a  a 
a  • 
•  in 
rg 


a  o  o  us  o  • 

D  C  3  O  * 


O  O 
a  • 
•  to 


<n 

i  o 

o  a  a  m  o  • 

C  C  C  C  *S 


o  o 

•  o  o 

•  •  I 

o 


I 

o 

a  a 
o  o  a 


o 

a  o 
•  • 


D  O 
O  • 
•  K» 


M 

H 

I  o 

O  O  O  <H  o  * 
CCOCf 


.  3 

i 


CHAPTER  17 


Utility  -  COUNT/DIVISIONS 

17.1  DESCRIPTION  OF  PROCESSING:  This  program  performs  computations  on 
the  input  data  in  addition  to  logic  tested  read  and  write  statements. 

17.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  produce  the 
COUNT/DIVISIONS  file.  The  COUNT/DIVISIONS  file  summarizes: 

o  The  number  of  divisions  arriving  in  the  theater  period  by  period  for  the 
seven  time  periods  of  the  analysis. 

o  The  average  number  of  divisions  arriving  period  by  period. 

o  The  total  number  of  U.S.  divisions  in  theater  on  D-Day. 

o  The  average  number  of  divisions  in  theater  period  by  period. 

The  utility  uses  as  its  source  of  information  the  73CEM5.BLUE/P88-XX  file  which 
is  produced  by  CEM.  This  file  provides  information  on  each  division  participating 
in  the  theater  conflict,  such  as  its  status  and  arrival  date  in  theater. 

In  that  the  force  structures,  status  and  arrivals  of  divisions  in  the  theater  are 
relatively  constant  from  each  run  of  the  CEM.  This  utility  need  only  be  run  once 
during  a  study.  The  COUNT/DIVISIONS  file  will  be  used  as  one  of  the  four  input 
files  into  the  following  utility,  CONTROL/COMPILER. 

17.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGURE  III.  17. 1.  The  logic  flow  of  the  utility  is  depicted  in 
FIGURE  III.  17.2.  The  source  code  of  the  utility  is  listed  in  FIGURE  III.  17.3. 

17. 1.2. A  INPUT  DATA  AND  DATA  BASE:  There  is  one  input  file  to  this 
utility.  The  file  is  a  product  of  the  CEM  model  and  describes  the  relative  sizes 
and  arrivals  of  specific  divisions  in  the  theater.  In  the  current  example  the  file  is 
cataloged  as  an  element  under  the  CEM  program  file  73CEM5  using  the  element 
name  BLUE/P88-XX.  The  proper  program  file  and  element  names  can  be  obtained 
from  the  CEM  Operator/Analyst.  Volume  I  of  this  documentation  details  a  record 
layout  for  the  file. 

17.1.2. B  OUTPUT  DATA  AND  DATA  FILES:  This  utility  produces  one  output 
file  referred  to  as  COUNT/DIVISIONS-XX.  The  file  will  be  cataloged  as  an 
element  under  the  current  study's  program  file  (e.g.,  SECRET*82WARFP88).  The 
file  will  contain  a  summary  of: 

o  The  total  number  of  divisions  arriving  in  the  theater  time  period  by 
time  period. 

o  The  average  number  of  divisions  arriving  in  the  theater  by  period. 
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o  The  total  number  of  divisions  in  the  theater  on  D-Day. 

o  The  average  number  of  divisions  in  the  theater  by  period. 

Figure  III,  17.4  presents  an  example  of  the  data  contained  in  the  output  file. 

17.1.2.C  DATA  VARIABLE  DICTIONARY:  The  following  section  identifies  and 

defines  all  variables  used  in  this  utility. 

NAME  DEFINITION 

TITLE  An  alphanumeric  variable  used  to  identify  the  type 

unit  record  that  has  been  read  from  the 
73CEM5.BLUE/P88-XX  input  file. 

DIV1,  DIV2  These  two  alphanumeric  variables  are  single  dimension 

arrays.  DIV1  will  contain  the  first  6  characters  and 
DIV2  the  last  3  characters  of  the  Division  name. 
These  values  will  be  read  from  the  input  file. 

CODE1  An  alphanumeric  variable  which  indicates  whether  the 

Brigade  is  active  or  a  ghost. 

A  =  Active 

Not-A  =  Ghost  (Reserve) 

SEC1  This  integer  variable  is  a  single  dimension  array  in  the 

utility.  It  denotes  the  first  (i.e.,  X)  coordinate  of  the 
FEBA  sector.  Valid  entries  are  000-999. 

This  array  denotes  the  second  (i.e.,  Y)  coordinate  of 
the  FEBA  sector.  Valid  entries  are  000-999.  This 
value  is  read  from  the  input  file. 

This  is  a  single  dimension  array  which  indicates 
whether  or  not  the  unit  is  active  or  reserve.  An  A  = 
Active,  Not  A  =  Inactive. 

One  character  integer  variable  used  as  a  single  dimen¬ 
sion  array.  This  variable  is  used  to  indicate  whether 
the  Blue  unit  is  a  U.S.  unit  or  an  allied  unit. 

If  TYPE  =  1,  the  unit  is  U.S. 

If  TYPE  NOT  =  1,  the  unit  is  an  allied  unit. 

This  data  is  read  from  the  input  file. 

NUM  A  3  character  alphanumeric  variable.  This  variable  is 

used  by  the  utility  to  identify  and  screen  units  that 
will  not  be  counted.  If  the  unit's  number  is  equal  to 
''100”  the  unit  wili  continue  to  be  analyzed.  If  it  is  not 


SEC  2 

CODE 

TYPE 
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equal  to  "100"  it  is  eliminated. 


BDES 


CYCLE 


ARR1,  ARR2 


ARRIVE 


IP,  IPP 
CHECK 

ICOUNT 

PERIOD 


An  integer  variable  used  as  a  single  dimension  array  in 
the  utility.  This  variable  is  used  to  indicate  the 
number  of  Brigades  in  a  specific  Division.  The  subs¬ 
cript  for  BDES  must  be  consistent  with  the  current 
Division.  This  value  is  calculated  in  the  utility. 

A  2  character  integer  value  which  is  used  by  the  utility 
and  the  CEM  as  a  unit  of  measure  for  time.  A  CYCLE 
=  4  days.  It  is  read  in  from  the  input  file.  It  is  used  to 
identify  day  and  time  period  specific  divisions  arrive  in 
the  heater.  As  is  currently  structured,  valid  entries 
for  CYCLE  are  from  1  to  45. 

These  two,  2  character  integer  variables  identify  the 
first  (ARR1)  and  second  (ARR2)  days  of  the  CYCLE  of 
the  arriving  units.  These  variables  are  read  from  the 
input  file.  These  values  will  be  assigned  to  positions  in 
the  2  dimensional  matrix  ARRIVE  ciscussed  below. 

This  is  a  2  dimensional  matrix  populated  by  2  charac¬ 
ter  integer  values.  There  will  be  7  occurrences  of  the 
"X"  axis  of  the  matrix  (1  occurrence  for  each  of  the  7 
time  periods)  and  30  occurrences  of  the"Y"  axis  of  the 
matrix  (l  occurrence  for  each  of  the  maximum  30  days 
in  a  period.)  It  should  be  noted  that  in  the  first  2 
periods  of  the  study  will  have  only  1 5  days.  Entries  in 
this  matrix  will  be  assigned  the  values  found  in  the 
ARR1  and  ARR2  variables  from  the  current  input 
record.  The  assignment  of  the  values  to  the  proper 
entry  in  the  matrix  will  be  determined  by  the  utility 
and  depend  upon  the  value  of  the  variable  CYCLE  of 
the  arriving  Division. 

Integer  variables  used  by  the  utility  to  identify  1  of 
the  7  time  periods  in  the  ARRIVE  matrix. 

This  is  an  integer  variable  used  in  the  utility  as  a 
single  dimension  array  with  7  occurrences.  Each  entry 
in  the  array  is  calculated  by  the  utility  and  reflects 
the  total  number  of  divisions  arriving  in  the  theater 
during  each  of  the  7  time  periods  of  the  study. 

This  is  an  integer  variable  used  to  temporarily  hold  the 
number  of  divisions  arriving  during  a  period  i.e., 
ARRIVE  (X,Y).  It  is  used  as  the  upper  limit  for  a  DO 
LOOP. 

This  is  a  real  variable  which  is  dimensioned  as  an  array 
with  7  occurrences,  1  occurrence  for  each  of  the  7 
time  periods  in  the  study.  Each  entry  in  the  array 
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I 


DDAY 


31,  3K,  3L, 
L3,  LK,  3C, 
3B,  K3,  KM, 
IB,  1CD,  333 


reflects  for  each  time  period  the  average  number  of 
divisions  arriving  in  theater. 

A  counter  used  to  accumulate  the  number  of  Division 
records  read  from  the  input  file  which  are  to  be 
included  in  the  calculating  of  Division  strengths. 

An  integer  variable  used  to  count  the  number  of  divis¬ 
ions  in  theater  on  D-DAY. 

Various  integer  variables  used  as  counters  and 
subscripts  in  the  utility. 


17.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 


17.2.1  SUPPORT  SOFTWARE:  The  utility  requires  the  FORTRAN  IV  compiler 
and  the  UNIVAC  1100/82  system  software  for  its  execution. 

17.2.2  I/O  DEVICE  REQUIREMENTS:  This  utility  uses  one  file  as  input  which 
is  maintained  on  disk.  It  will  in  turn  produce  an  output  file  which  will  also  be 
maintained  on  disk. 


17.3  MAINTENANCE  PROCEDURES}  The  program  is  maintained  by  the 
MPP  anal'^t. 


17.3.1  PROGRAMMING  CONVENTIONS:  The  utility  is  written  in  FORTRAN 
IV  and  follows  FORTRAN  conventions.  The  utility  is  structured  to  translate  the 
arrival  dates  of  divisions  in-theater  from  theater  cycles  (i.e.  4  day  periods)  to  the 
appropriate  day  within  the  appropriate  time  period  used  in  the  study. 

17.3.2  INTERNAL  ERROR  ROUTINES:  There  are  no  explicit  error  handling 
routines  written  into  the  utility.  As  a  result  the  only  errors  detected  by  the 
system  will  be  identified.  These  errors  must  be  corrected  using  system 
documentation. 
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count/divisions  structure 
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Figure  III.  17. 1 
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Figure  III.  17.2  (Cont) 


Figure  UI.  17.2  (Cont) 
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CHAPTER  18 


Utility  -  CONTROL/COMPILER 

18.1  DESCRIPTION  OF  PROCESSING:  This  program  perforins  computations  in 
addition  to  the  logic  tested  read  and  write  statements. 

18.1.1  PURPOSE/FUNCTION S;  The  purpose  of  this  utility  is  to  gather  and 
organize  data  from  five  input  files  and  produce  the  CONTROL/XX  file.  This  file 
will  be  used  in  conjunction  with  the  current  ITMID/FINAL  file,  which  was 
produced  by  the  earlier  ITMID/REC-A  utility,  as  of  two  input  files  to  the 
Equipment  Loss  Consolidator  (ELCON)  program  which  will  be  subsequent^ 
executed. 

18.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  overall  structure  of  the 
utility  is  pictured  in  FIGUF.E  lll.lfX  The  logic' how  followed  by  the  utility  is 
depicted  in  FIGURE  111.  18.2.  The  source  code  of  the  utility  is  listed  in  FIGURE 
III.  18.3. 

18. 1.2. A  INPUT  DATA  AND  DATA  BASE:  The  source  of  data  for  this  utility 
will  be  provided  by  a  collection  of  five  existing  files.  Three  of  the  files  will  have 
been  automatically  produced  by  other  MPP  utilities,  which  must  have  been 
successfully  completed  prior  to  the  execution  of  this  utility.  These  three  files  are 
COUNT/DI VISIONS-XX,  SCENARIO/XX,  and  CEM/LOSSES.  The  remaining  two 
files,  CONTROL/TEMP,  and  REDARTY/DEGR-XX  are  manually  created  by  the 
user  via  the  system  editor.  Source  document  for  the  CONTROL/TEMP  file  will  be 
the  previous  study's  control  file;  the  source  document  for  the  REDARTY/DEGR- 
XX  file  will  be  the  LOG  REPORT  produced  by  the  CEM.  Each  input  file  is 
discussed  below. 

o  CONTROL/TEMP  -  As  noted  above  this  file  is  created  manually  by  the 
user,  using  the  previous  study's  CONTROL  file  as  its'  source.  This  file 
will  provide  to  the  output  file  both  its  form  and  selected  elements  of 
information  such  as: 

oo  run  parameters  or  control  data, 
oo  Number  of  days  in  each  period, 

oo  For  each  of  the  loss  rates  specified,  the  first  and  the  last  time  period 
considered. 

oo  Inter-theater  and  intra-theater  transportation  loss  fraction  by  air,  sea 
and  LOC. 

oo  For  each  of  the  4  combat  postures,  the  fractional  daily  loss  for  each  of 
the  22  vulnerability  categories. 

The  remaining  records  inserted  into  this  file  will  be  zeroed  out.  These 
records  will  be  completed  by  the  utility  using  data  extracted  from  the 
remaining  four  input  files.  Figure  III.  18.4  depicts  this  input  data  file. 

o  COUNT/DIVISIONS  -  This  is  the  second  of  the  five  input  files  to  this 
utility.  It  will  supply  to  the  utility  the  number  of  Blue  divisions  in 
theater  on  a  period  by  period  basis.  Figure  III.  18.3  presents  this  data 
file. 
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SCENARIO/XX  -  This  is  the  third  file  to  be  used  by  the  utility.  This 
file  was  produced  by  the  5EARCH/ENGAGEREP  utility  and  denotes  for 
each  of  the  four  postures,  the  daiiy,  fractional  loss  suffered  in  each  of 
the  22  vulnerability  categories.  Figure  111.  18.6  presents  an  example  of 
this  input  data  file. 

o  REDARTY/DEGR-XX  -  This  is  the  fourth  file  to  be  used  by  this 
utility.  This  file  was  created  manually  by  the  study  analyst  using  data 
supplied  by  the  CEM  LOG  REPORT  on  RED  LOGISTICS  EFFECTIVE¬ 
NESS.  From  this  dat  the  utility  will  record  the  fraction  of  full 
strength  Red  artillery  effectiveness  to  be  applied  by  time  period. 
Figure  Ill.  18.7  presents  an  example  of  this  data  file. 

o  CEM/LOSS  -  This  is  the  fifth  and  final  file  to  be  used  as  input  by  this 
utility.  Using  this  data  the  utility  will  record  in  the  output  file,  one 
record  for  each  of  the  seven  time  periods  in  the  study  detailing  within 
each  record  percentage  losses  per  30  days  of  the  12  types  of  equipment 
considered  in  the  theater  model.  Figure  HI.  18.8  presents  an  example  of 
this  data  file. 

Using  these  five  input  files  the  utility  simply  formats  and  writes  the  CONTROL/- 
XX  file  as  its  output. 

18.1.2.B  OUTPUT  DATA  AND  DATA  FILES}  There  is  only  one  output  file 
produced  by  this  utility.  It  is  called  the  tONTROL/XX  file.  The  file  is  cataloged 
as  an  element  under  the  current  study's  program  file  and  will  be  used  as  one  of  the 
three  input  to  the  ELCON  utility.  The  file  uses  the  exact  same  format  as  the 
CONTROL/TEMP  file  that  was  used  as  one  of  the  utility's  input  files.  Further, 
much  of  the  data  that  was  present  in  that  file  was  simply  copied  to  this  output  file 
as  was  discussed  earlier.  The  remaining  information  contained  in  this  file  was 
supplied  by  the  other  four  input  files.  It  sh,  *id  be  emphasized  that  no  data  in  this 
file  is  derived;  the  data  is  simply  re  '  from  the  input  files,  organized  and  written 
to  this  output  file  by  the  utility. 

The  output  from  this  utility  wMl  consist  of  eleven  record  types.  The  first  format 
of  the  first  record  type  will  allow  the  user  to  control  how  the  ELCON  program 
will  execute  and  how  its  output  will  be  formatted  and  stored.  The  subsequent  ten 
records  will  provide  essential  elements  of  information  to  the  utility.  A  short 
description  of  these  records  and  their  contents  are  presented  in  Figure  3.16.9. 
Figure  3.16.10  presents  an  example  of  the  data  found  in  the  file.  Volume  I  of  the 
documentation. 
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1S.2.C  VARIABLE  DICTION  ARY» 


The  following  section  identifies  and  defines  the  variables  used  by  this  utility. 


VARIABLE  NAME 
COPY 


THE 


DIVS 


ATT  At  .  K 

DUMMY 

SCEN 


TIME  l  -  TIME7 


DEFINITION 


This  is  a  6  character  alphanumeric  variable  which  is 
dimensioned  as  an  array  with  12  occurrences  by  the 
utility.  Data  is  read  from  the  CONTROL/TEMP  input 
file  in  records  of  72  bytes  into  this  array.  The  records 
are  then  immediately  written  to  the  output  file  CON¬ 
TROL/COMPILER 

This  is  a  3  character  alphanumeric  variable  which  is 
used  to  locate  and  position  the  utility  to  the  proper 
record  within  the  input  file  CONTROL/DIVISIONS. 
The  utility  will  read  post  records  from  the  input  file 
until  this  variable  equals  its  namesake,  i.e.  "THE". 

This  is  an  array  within  the  utility  dimensioned  at  7 
occurrences;  one  occurrence  for  each  of  the  7  time 
periods  used  within  the  study.  Data  found  in  this  array 
reflect  the  average  number  of  divisions  in  theater  by 
time  period.  This  data  is  read  in  from  the  input  file 
COUNT/DIVISIONS. 

This  is  a  six  character  alphanumeric  variable  which  is 
used  as  a  check  by  the  utility,  similar  to  the  discussed 
above.  It  allows  the  utility  read  past  unneeded  data  in 
the  input  file  SCENARIO/XX. 

A  six  character  alphanumeric  variable  that  is  used  as 
an  array  within  the  utility.  As  its  name  implies  it  is 
simply  a  DUMMY  variable  used  to  read  past  unwanted 
data  in  the  SCENARIO/XX  input  file. 

A  4  member  array  used  by  the  utility  to  store  the 
fraction  of  time  spent  by  U.S.  forces  in  each  of  the 
four  combat  postures.  The  sum  of  these  four  fractions 
must  equal  1.  This  data  is  read  from  the  input  file 
SCENARIO/XX. 

These  seven  variables  are  used  as  arrays  by  the  utility 
and  are  each  dimensioned  with  enough  occurrences  to 
hold  data  for  the  number  of  theater  cycles  in  each 
time  period.  Each  theater  cycle  is  equal  to  4  days. 
TIME1  for  example,  reflects  the  first  time  period 
which  has  15  days.  Thus  T1ME1  is  dimensioned  at  4. 
TIME6  reflects  a  30  day  period  and  has  8 
occurrences.  Data  found  in  these  arrays  is  read  from 
the  input  file  REDARTY/DEGR-XX. 


TOTAL 


This  variable  is  used  as  an  array  by  the  utility.  The 
array  has  seven  occurrences)  one  occurrence  for  each 
of  the  seven  time  periods  in  the  study.  The  value 
found  in  each  occurrence  of  the  array  is  calculated 
using  the  Red  Artillery  loss  figures  contained  in  the 
arrays  TIME1  through  TIME7.  Supplied  by  the  RE¬ 
DART  Y/OEGR  file  using  the  following  schemes: 

TOTAL(l)  =  TIMEKD  =  TIME1(2)  ♦  TIMEK3)  +(TIME1 
(4)*.7  5) 

TOTAL(2)  =  (TIME  l(4)*.23MTIME2(4)*.50)  >TIME2(1) 
♦TIME2(2)  *T1ME2(3) 

TOTAL(3)  =  (T1ME2(4)*.50)  +  TIME3(1)  ♦  TIME3(2) 
♦TIME3(3)  ♦  TIME3(4)  ♦  T1ME3(5)  ♦  TIME3(6)  + 

T1ME3(7) 

TOTAL(4)  =  T1ME4(1)  ♦  TIME4(2)  +  TIME4(3)  +  - 
TIME4(4)  +T1ME4(5)  4  TIME4(6)  +  T1ME4(7)  + 

(TIME4(8)*.50) 

TOTAL(5)  «  TIME5(1)  ♦  T1ME5(2)  +  TIME5(3)  + 

TIME5(4)+T1ME5(5)  +  TlME5(6)  +  T1ME6(7)  + 

(T1ME4(8)*.50) 

TOTAL(f)  =  TlME6(l)  +  TIME6(2)  +  TIME6(3)  +  TIME6 
(4)+  TIME6(5)  ♦  TIME6(6)  +  TIME6(7)  +  (TIME6(8)*.50) 

TOTAL(7)  =  TIME7U)  +  TIME7(2)  +  TIME7(3)  + 

TIME7(4)  +TIME7(5)  +  TIME7(6)  +  T1ME7(7)  + 

(TIME6(8)*.50) 

The  next  fraction  in  the  utility  is  to  determine  the 
daily  ammo  expenditure  or  loss  rates.  This  is  done  by 
dividing  the  seven  time  period  totals  by  the  number  of 
days  in  the  time  periods,  i.e.  periods  1  and  2=15  days 
and  periods  3-7  =  30  days. 

TEMPI  This  is  a  temporary  variable  used  in  calculating  the 

daily  ammo  expenditure  rates. 

TEMP2  This  variable  is  used  to  temporarily  hold  the  values  of 

the  TOTAL  array  in  order  that  comparisons  of  TOTAL 
can  be  made  to  determine  the  largest  ammo  expend¬ 
iture  period. 
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FACT 


This  is  an  array  of  seven  occurrences)  one  for  each  of 
the  seven  time  periods  in  the  study.  This  array  is  used 
to  hold  the  resulting  fraction  of  the  division  of  the 
seven  members  in  the  total  array  by  the  TEMP2  varia¬ 
ble,  which  contains  the  value  of  the  highest  TOTAL 
value.  The  resulting  values  will  reflect  the  Red  Artil¬ 
lery  degradation  factors  for  each  of  the  seven  time 
periods. 

This  variable  is  used  as  an  array  by  the  utility  with  18 
occurrences.  The  contents  of  the  array  will  contain 
the  average  13  day  (for  the  first  2  periods)  and  SO  day 
(for  the  remaining  periods)  for  the  M1E  Weapons  ident  ¬ 
ified  as  being  played  in  the  study.  As  currently  struc¬ 
tured  for  each  period  only  13  weapons  types  m^y  be 
played.  If  more  are  to  be  played  the  number  of  fields 
the  utility  reads  from  the  CEM/LOSSES  input  file  must 
be  increased  from  13  to  the  required  number.  Further, 
if  the  number  of  weapon  types  exceeds  18,  the  dimen¬ 
sion  on  the  variable  CLOSS  must  be  increased. 


KK,M,I,N, 

NN,3,L,LL, 

MM,  13, IK, IL, 
IM,IN,3I,3K, 
3L,3M,3N,KI, 
K3,KL,K,LI, 
L3,LK,LN,MI, 

MN, N3,NM 


18.2  OPERATING  ENVIRONMENT:  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

18.2.1  SUPPORT  SOFTWARE:  The  utility  requires  the  FORTRAN  IV 
compiler.  In  addition,  the  utility  requires  the  facilities  of  the  UN1VAC  1100/82 
system. 

18.2.2  I/O  DEVICES:  -  This  utility  uses  five  input  files  which  reside  on  disk  and 
produces  an  output  file  which  will  be  maintained  on  disk. 

18.3  MAINTENANCE  PROCEDURES:  This  program  is  maintained  by  the 
MPP  analyst. 

18.3.1  PROGRAMMING  CONVENTIONS:  This  utility  follows  FORTRAN 
programming  conventions. 

18.3.2  INTERNAL  ERROR  ROUTINES:  -  There  are  no  explicitly  written  code 
to  detect  and  handle  error  conditions  within  the  utility.  Only  errors  detected  by 
the  system  will  be  identified. 


Various  integer  variables  used  as  subscripts  and  looping 
limitations  within  the  utility. 


CONTROUCOMPIIER  STRUCTURE 


7  r 


SCENARIO-XX 


REDARTY/DEQR-XX 


CONTROU 

TEMP 


COUNT 

OIVISIONS-XX 


PROGRAM 
CONTROL /COM'  HER 


OR  KK*1,7 


FOR  M-1,7 


Figure  IU.1  o.  < 


397 


I 


FOR 

NI  «  1,5 
DO 


rJiI — 

/FOR  NJ»1,13 
READ  / 
CLOSS(NJ) / 


FOR  NK“  1,13/ 
WRITE  / 
CLOSS(NK)  / 


FOR 

NJ  •  1,12 
DO 


FOR  NH-1,12/ 
READ  / 
DUMMY  (NM)/ 


Figure  III.  18. 2  (Cont) 
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STOP 


1 


* 


THIS  PAGE  IS  INTENTIONALLY  LEFT  BLANK 


untlassif ieo**wf  :lc  name^xqt  element  n*me  )ccaT)t?l/comrile0***unclassifi 


C****»  THl S  PROGRAM  IS  WRITTEN  IK  FORTRAN  IV, 


C*****PURPOSC  OF  PROGRAM) 

c»**** 

C***«*  Till  S  UTILITY  1$  DESIGNED  TO  CCLLEC1  0»T»  FROM  1  HR  r  E 

C*****uT IlI T It i  U>hSEO  ON  CCM  INPUT  wND  OUTPUT  I  AND  TWO  w*RF  FLEHCNT  1 0  A  T  A  I 
C***«*F  KPS  .  THE  UTILITY  USES  THIS  UAIA  To  COMPuTC  VARIOUS  C  •  i-CUL  A  T I  ONS 
C  *****  A  NO  CREATE  ThE  CONTROL  DATA  FILE,  WHICH  IS  STORED  AS  AN  ELEMENT  OF 
C***»*THE  WAfiF  STUDY’S  PROGRAM  FILE.  THE  CONTROL  ELEMENT  FILE  WILL 
C*****USE  AS  INPUT  TO  THE  ELtON. 

C***  **  THE  FOLLOWING  UTILITIES  PROVIDE  INPUT  DATA 
C  *****  A  NO  MUST  BE  tXECUTED  »R!OR  TO  THIS  UTILITY) 

C***«*  1,  9I>„T.sr ARCh/EKGAGEREP 

c***»*  2.  A2X„T .Ct M/DATA 

C*****  3.  S2y4T  .CFm/lOSSCS 

C***»*  M.  A2x„T.COUNT/DlVl*IONS 

c**« ** the  folljwinu  elements  ioata  files)  of  the  *arf  study’s 
C*****pFOGRAM  file  MUST  6C  CREATED  prior  the  execution 
C*****OF  THIS  UTILITY) 

C****»  1.  COMROLFIEMP 

C****»  ?.  RCrMRlY/PEGR-AX 


C****«  w  AR I ARL  t  Did IONARy 


C*****VARIA3lE  NA*l 
C*****C0PY( I  I 
C*****THE 
C 

r*****oivsi 1 1 

C*****OUMMY I  1  » 

C**  *  **  ATTACK 
C*****ICEN«  I  1 


DEFINITION 

hCLOS  COPIED  DATA  FROM  TEMPORARY  CONTPuL  '  I L E . 
USED  TO  YERTFY  READ  POSITION  IN  62PRTS  DATA 
FILE. 

CONTAINS  NU*eER  OF  DIVISIONS  P£F  TIME  PERIOD. 
USED  TO  nEAD  PA  v I  UNWANTED  DATA. 

USED  TO  VFR1FY  POSITION  IN  DATA  PILE  P2SCENAR 10. 
PERCENT  Or  TIME  IN  EACH  POSTURE e I ,E . A T T ACK » . 


C*****TIME1 II)-TI‘l7T1 I  AMOUNT  OF  AM, MO  ExPENUTTUHES  FOR  EACH  FOUR  DAY 
C  THEATER  CYCLE  FOR  L ACM  TIME  PER  1 00 T  1 -7 >  . 

C*****TCTAL(  II  TOTAL  A*MO  FxPEN'DITURE  PER  TI*E  PERIOril-7). 

C*****F»CTl  I  1  RESULTING  R«-f  ARTY  DESRAuATION  FACTOR  FOR  EACH 

C  TIME  PEplCC>  •  1  -IT , 

C***»*TEMF  USlD  to  FIND  AND  HOLE  HIGHEST  A«MO  EXPENDITURE 

C  OF  THE  SEVEN  TIME  PERT  CDS. 

C*****CLOSS (11  USED  TO  STORE  THE  CEM  LOSS  RATE  PERCENTS. 

C *******•***•»********«*«»*  »,,,.«,**«», **************  ****************** 
C********************************************************************** 
DIMENSION  CDPY |  1  D ) , OjMM Y II i I , D I  VS  I  7  I , 1 i*C I « M • T IMr 2 T A  > , Y I M E 31 7 )  , 
*TIMe<MSl,TIM1.St7),HK:nM,TlME7l7»,tOTAH7J,FACtm,CLOsSmJ, 

♦  SCENT  A  I 

';«****•**** *•*«**««*«*******•»»«•***»#»*«**»*»*•***••******  ************ 
C*****TH1S  SECTIOt  COLLECTS  A'.'D  AECDPIE*  DATA  FROM  THE  TEMPORARY  CONTROL 
C*****FUC  TO  THE  FILE  CONTROL  EUE. 

DO  IE  Id,  IS 

RFAUC7, 15D, E NDaN VllCOPY 10), J> 1,131 
1 00  FOR MATTIE  At) 

WRITE  T : ,10r 1 T COPY (HI ,*= l , 7) 

ID  CONTINUE 


Figure  III.  1 8. 3 
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i'\ci A$«irirc*"**r in  na*»c  Teoxct 


ELrMFi,T  NAME  lCONTROL/CPhPUCP***UNtLASSiri 


tb!C**<'****»***********>*v«******4**********»*********P*9  ♦••***••****  •***•*• 

SECTION  READS  DATA  F  RuM  P20IVIS1QNS  DATA  Flit  rROM  »?*QT  .COUNT D1VS • 

*  C  iC»*t*MMM***»MMM*l>MMM***«*t*MIMMM*M*MIMM****A*M*M«M* 

bl:99  l>  f_  A  U  I  *■  •  1  C  1  ,  f  n  0  =  9  B  )  I H  L 

82:121  FORMAT  (IX. »7) 

*i:  1 r  « THE .CO.  •TmE* )GO  TU  7  f 

84:  CD  TO  99 

<5:78  klAtHP,iaj,r,«n  =  9AI  ID1VSIKKI  ,kk  =  1 , 7  ) 

8b:K2  F  ORHA  T I  1 2  Ah  I 

fr  7  S 1  r  3  f  ORMAT  lilt  ,7  IF4.  1  ,  IX  M 

FfeSC***** **************************************** ***••**••******•****••*• 

89  :C*****»RI  TE  E'lVIStuNS  COUNT  IN  THE  FINAL  CONTROL  FILE. 

7U«C** «.******♦*******•<.**♦♦*♦***•**♦*****♦**♦**♦•*♦••**•*♦*••••**••••*♦• 

71  :V.«  I.F1TC  I  2  ,  ’•'l  MDIVSIH),*:!,?) 

72:201  FORMAT  <7(  1  X  ,F  4  •  1  I) 


7i:c  «******■>♦<<♦**>*****»•***•****  *•*»**  *****♦**•*••  ♦*••***.**  »*«*»»»•»*••• 

74  :C****«KCADING  IN  DATA  FROM  82SCTNARI0  ON  PERCENT  OF  TIMF  IN  EACH  POSTURE. 


75  :l'*« 


!  1  3 
:  104 


7b 
77 
7b  : 

7  v : 

BC : 

►  l : 

*  2 i If S 

» a 

F4:2C2 


05 
'b 
c  7 
cb 
*V 
lu 
''l 
'2 

<-M 

<-c 

47 

rt, 

o9 

KC 
1:  i 
1-2 

103 

104 
1  n5 
lOt 
1C  7 
Kb 
1  "9 
1  1C 
1  1 1 
1  12 
113 
1  14 


NEAC(9,lC4,r„0=97)ATTACK 
FORMAT  ( 5X  ,A<  | 

iriATTACK.NT .’ATTACK* ICO  TO  IT 
AT  A0(*>,  1  J2»C.,0  =  47  I  (DUMMY!  11.1  =  1.12) 
no  14  in, ? 

*r  AD(  9, 13S,E.»C>  =  47)  (SCEi,(M,N=l  ,4  I 
FORMAT (5X ,4  (F6.4, 4*  )  ) 

•  RlTCti  ,2C?MSCEMNM,NN=l,4l 
FCRMAT  |  l)F  5 . 7  ) 

14  CONTINUE 

t'O  15  N n , t 

-F  AOT  9 . 1  J2.0  ,r>  =  97MDuMMY(  1 1  ,1  =  1,12) 

15  CONTINUE 

co  lb  :i  =  i  ,f 

RE  A3<5  ,lu5»r»0:9T)  I  SC  E  N  (  J  l,J=  1  ,4) 
a  R 1  TET2.2C  2)tSCCMN),R=l,4) 
lb  CONTI NUC 

C**«**C0PYINC.  A  NO  .RUING  WARTHtM  LOSSES  FROM  T  ML  TEMPORARY  TO  THE  FINAL  CONTROL 
C  FILE. 

97  DO  117  NM  =  l,e. 

*r  ad  i  7 ,  i  j?,r.,n=<*b  >  touvmy  «  v*  i  ,n  <  =  i  ,  i?i 

117  CON  1 1 NUE 

Eu  17  JJU.F 

h'  AC  (  7,1  J.'.r  ,0iRfi  MCOPY  <L  T  ,L  =  1 , 12) 

WPI TE  t 2 ,102 I(C0PY(M1 ,*=1 , 121 
17  CONTINUE 

C**«*ACOKPUT AT  IONS  ON  AMMO  TATA  FROM  RCVARFSYS.REPARTY/pEOR 
C  TO  03  T  AIN  T  Hi.  REP  AR I Y  EECRADATIUN  FACIOR. 

C44fta*b>>*V*Abfe*4*ft«*eb****9***bAA*<.***«*i4**tu444*4***b>t*b*****»*b***b***PPb**#4t 


9b 


lb 


l'b 

14 


L  0  1  0  H  K  U  ,  1 2 

READ  IK  ,  152.1.ND70  5)  TUUF.^V  (N),NU,  12  T 

CONTINUE 

DO  15  Ll=l,4 

F  EALl  l'l,10b,ENU  =  95)Tl“E  TILL) 

FORMAT I112X.F7.0) 

CONTINUE 


Figure  III.  18. 3  (Cont) 
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ukcc * ss.1  r  iro***r  ut  namiMut  urn'M  name  tLONTROL/COMHUPAMutrLASur  l 


TOTAL  t  i  »aT  IMH  »*.?S 
00  EE  I'CI,' 

TOTAL  U  1 1  TOTAL  111*  Tint  l  tP**! 

CONTINUE 
ut.  El  NN:  1  ,<• 

RE  AO  I  10,100  *lN0-95)T1ME?|NN1 
COST] SUE 

TOT AL  t El:t  TTritl tM l*«C! >*t  TIME? INI*  .SCI 

00  ?2  IJS1,? 

TOTAL  irUTOTfcur>*TlHE;tl  Jl 

CONTINUE 

Of.  :3  1«:1,T 

REAP!  ICMCt  .uNOUtlTin  It  1*1 
CON  T  J  SUE 

TOTAL!  5lATTMt ?|M»*.*.Q 

oo  :m  n 1 1 ,? 

TOTAL  t  5UTOTAL  lSl*TIht  it  11  I 
CONTINUE 

oo  es  ipai,* 

RE  AOT  1 C.  *  IEM.  »i.N0-N5  I  T  l*C  <•  t  TNI 
CONTINUE 

total  ts  isTi**uiM»»*.;a 

CO  EO  IN.:  1,7 

TCTALI*lATOT«ll<*|«TlMENtlM 

CONTINUE 

00  E7  Jl A  1  t  7 

REAE.'t  r:,nt,tN0A<8*«»Ti-t*  t  JII 

CONTINUE 

TCT AL  t l lATl-tN  t F l*.$E 
C  P  EE  JR  *  1 *7 

TOTAL  ISl  =  TOT.a  tS  I  ♦TlnE*.  t  J*  l 

CONTINUE 

LC  E?  JLAl.R 

RF  AOt  KM>  ,^Nl)A9E  UlM  t  JL  » 

CONTI NUC 

total  UUTlIiMf  l«.SQ 

LO  i-  J*'.  A  1  ,  7 

total  to > atot«l  to mtim*i  t  jn 

CONTINUE 
10  T 1  JNA l  ,  7 

A  r  A  C#  t  1 ,  lOfc  ,»Nl'A«E.  1  T  I  “  t  7  |  JNI 
CONTINUE 

TOTAL  t  7  IaTHlMMo.&G 
ro  3?  Mai, 7 

Tt  TAL  I  7  )  A  TOTAL  17  MTIME  7  t*  I» 

CONTINUE 

TEmPi:1: 

I'O  Ml  NNA  i  ,r 

1FMP1  aTOTAL  N.MAlf 

TOTAL  t  kiN  I  a  T  r  up  i 

CONTINUE 

00  m2  MMAT,7 

TEMPI rTOTAL t  MM I / 3  E 

TOTAL  tMM  J  ATT  ,MPl 

CONTI NUE 

TEMPEAE 

00  JJ  *  JA  1 , 7 


Figure  III.  18. 3  (Cont) 
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i.NCifssiFU t***rut  'iic.tiimft  el<>fnt  N*»r.  tiO.«THOL  /to('Pii£»***usrL»iiir> 


1  7C  s  1FUEPPE.LT  .TOTH  T  4  J  I  iTEHOilTOTALIKJI 

173:33  CONTINUE 

IT*,.  (C  34  KLM,7 

pi:  r»cmi  >:tot»l(kl  i/tlmpo 

1 7b : 3“  CONI I  SUE 

177:  t.FI TEI ?,221 MFaCT IK » ,k:  l , 71 

l7b:Pri  FORMAT (IX, 7Fb. 31 

lSb:C*****nr»CINO  r»0*  8k‘Cr**H>SM  Cr«  LOiSE*  ANO  waiting  into  final  CONTROL  FILE. 


tC  35  KN=l,fr 

1 83 :  cciQui  ,ic:  tisDiRi*  j  luUHrt  m  i  ,lim  ,i?i 

I  8m  35  CONTINUE 

IHt  hCACll  1 ,157  .ENUSOM  MCLOFS  UJl  ,LJU  ,131 

l*b:  107  FORN8TU5X.liF7.il 

i  7  s  wriT:i:,:rmiCL0S3iL8i,t8ri,i7i 

I8fl:j0b  FORMAT  tlx, l ?Fb. 21 

18« :  CO  3fc  LKIl.li 

1*»L, :  REAP! 1  1 ,152  ,lNO:'><*  I  (DUMMY  I LN I  ,lNU ,12) 

l *  1 :  3b  CONTINUE 

1  *»2  S  F  F  A  D  I  1  l*lP?*tNliS941ILE0SSIhI  I  »  M 1 :  1  ,13) 

1*3  t  .RITE  12  ,2P4  MCLOFMKJl  ,VJU  ,131 

Pill  DC  37  Mill, 57 

1"5  :  i;r  40  ll  1  ,lp;-  ,LNu5b4MDUKNt  INN)  ,NN=1  , 1 2 1 

l^bsST  CONTINUE 

1*7 :  DC  3*  M  =  l,* 

i'H  s  >.  F  4  J(  11  ,  1,~7  »t,ND:*4  l  (CL  055  I’.JI  ,  »Ji  1  ,131 

lc9:  fr  I  :•  ,204  MCL08S1NKI  ,NK  =  l,l»l 

.’"l:  10  3?  Njil.U 

2U  :  i.E  6J(  1  1  ,  1  T  2  ,  t.  N  D  x  9  4  1  ( li  U  M  v  Y  ( N  M  )  ,NM-1  ,  121 

202:38  CONTINUE 

O’"  3  :  4 4  STOP 

.’•'4:-  iko 


Figure  III.  18. 3  (Cont) 
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UN CL  AS  SI  FI CO ♦  «•£  X AMPLE  OF  A  CONTRO  L/TEHP  DATA  FILE  *»»UNCLASSIFIFD 


15AOO  I I. CONT ROL/TEMP 

iitcmporary  control  data  file  warf  pot 


3 

?  1200  13 

10 

0 

2 

-1 

4 

15 

IS  30 

30 

30 

30 

30 

5 

1 

1 

K 

2 

2 

T 

1 

2 

8 

3 

3 

9 

4 

4 

10 

5 

5 

11 

6 

6 

12 

7 

7 

13 

1 

4 

14 

5 

7 

15 

.05 

.05  .05 

.01 

.01 

.0  Q 

.00 

16 

.15 

.15  .23 

.10 

.05 

.0  2 

.00 

IT 

.15 

.15  .10 

.10 

.05 

.0  5 

.05 

18 

0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

19 

.000  . 

000  .000 

,000 

20 

.000  . 

000  .000 
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THE  ABOVE  ELEMENT  FT LE  *  CONTROL/TEMP"  TS  CREATED  BY  MANUALLY 
EDIT  TING  A  PREVIOUS  STUDIES  CONTROL  FILE  INTO  THE  CURRENT 
WARF  STUDY’S  PROGRAM  FILE  tIN  THIS  EXAMPLE  *SECRCT»82W ARFP88* ). 
LINES  1-16  MUST  BE  EOITTED  WITH  THE  CURRENT  STUDY  DATA  ON 
REPORTING  AS  OIRECTEO  BY  THE  STUDY  DIRECTOR  AND  IAW  TABLES 
4-4  AND  4-5  OF  THE  E vCON  MANUAL  CAA-D-79-3.  DATED  AUGUST  1979. 
THCSE  LINES  CONTATN  CAT A  OK  THE  iTIME  PERIODS.  ALIN  COOES, 

•CEM  ITEMS,  ARATES  T C  BE  COMPUTED,  ADAYS  OF  PREPOSIT TONE C 
STOCK,  TYPE  OF  RETORT,  LENGTH  OF  TIME  PERIODS,  INT ERfHEA TER 
LOGISTIC  ( SE A  AND  AIR)  LOSSES.  AND  INTRATHEATER  LOGISTIC 
LOSSES.  FOLLOWING  1  HE  COMPLETION  OF  WARFRAM  AND  THE  CALCUL¬ 
ATION  OF  LOSS  RATES  FOR  THE  22  ARTILLFRY  VULNERABILITY 
CATEGORIES  FOR  EACH  COMBAT  POSTURE  LINES  25-32  MUST  BE  FILLED 
IN  WITH  THIS  DATA  IAW  TABLE  4-5  OF  THE  ELCON  MANUAL  MENTIONED 


58 

59 

60 
61 
62 
63 


ABOVE.  THESE  LINE  NUMBERS  MAY  CHANGE  DUE  TO  THE  ADDITION  OK 
DELETION  OF  OATA.  THE  REMAINDER  OF  THE  FILE  CURRENTLY  SHOHN 
WITH  2ER0S  WILL  BE  FILLED  OUT  8Y  THE  EXECUTION  OF  UTILITY 
*8 2XQT. CONTROL /C OH PI LER* .  THIS  UTILITY  WILL  CREAT  A  NEW 
CONTROL  FILE  ELEMENT.  WHICH  WILL  BE  USED  IN  THE  EXECUTION 
OF  ELCON,  lo  , 

Figure  Ul.  18.4 


407 


UNCLASSXFIED*«*E  X4MPU  OF  THF  OUTPUT  FROM  UTILITY  COUNT/ DI VI SIONS* » *UNCLAS SIFIFP 
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r  :  *t  z 

7  t  THE  AVERAGE  DIVISIONAL  COUNT  BY  PERIOD. 

St  48.1  51.5  5Z.D  5Z.0  57.0  5Z.C1  5Z.0 


Figure  III.  18. 5 
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CHAPTER  19 


UTILITY  -  FINAL  REPORT 

19.1  DESCRIPTION  OF  PROCESSING;  This  program  performs  calculations 
in  addition  to  the  logic  tested  read  and  write  statements. 

19.1.1  PURPOSE/FUNCTIONS:  The  purpose  of  this  utility  is  to  combine  the 
three  output  files  from  the  ELCON  program  and  the  one  ITMID/FINAL  output  file 
to  produce  a  report  on  WARF  daily  attrition  rates.  Since  the  output  from  ELCON 
expresses  loss  rates  in  30  day  increments  computations  are  performed  to 
determine  the  daily  rates.  The  only  output  from  this  utility  is  the  printed  report 
for  the  combat  analyst.  The  report  is  not  used  as  input  to  any  other  automated 
program. 

19.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE!  The  overall  structure  of  the 
utility  is  pictured  in  Figure  III.  19.  f.  The  logic  flow  of  the  utility  is  depicted  in 
Figure  III.  19.2.  The  source  code  of  the  utility  is  listed  in  Figure  III.  19.3. 

19. 1.2. A  INPUT  DATA  AND  DATA  BASE:  The  utility  uses  four  input  files,  all 
cataloged  under  the  current  study's  program  file,  in  this  instance, 
SECRET*82WARFP88.  These  files  are  the  ITMID/FINAL,  RATES-XX/SEC-1, 
RATES-XX/MONTHLY-WOL  and  R  ATES-XX/MONTHLY-WL.  Each  file  is 
discussed  below. 

o  ITMID/FINAL  -  This  file  is  produced  by  the  ITMID-REC-A  utility.  It 
details  each  major  item  of  equipment  being  analyzed  in  the  study.  For 
each  item  it  provides  the  item's  code  identifier,  nomenclature  or  des¬ 
cription,  its  CEM  type  artillery  vulnerability/historical  class  (where 
applicable)  as  well  as  a  period  by  period  summary  of  the  authorized 
quantities  of  this  item  plus  a  combat  zone  by  combat  zone  summary  of 
the  distribution  or  density  of  the  item  throughout  the  battle  area. 
Figure  3.19.4  presents  the  file  layout  and  example  of  the  data  for  this 
file. 

o  RATES-XX/SEC-1  -  This  file  is  produced  by  the  ELCON  program.  It 
summarizes  for  the  utility  the  control  information  under  which  the 
ELCON  program  was  executed.  In  addition  to  a  summary  for  each 
major  piece  of  equipment  a  summary  of  its  loss  rates  in  different  per¬ 
iods  from  a  variety  of  causes.  The  USACAA  document  CAA-D-79-3  in 
Appendix  B  presents  a  complete  example  of  a  typical  file  on  pages  D1  - 
D12.  Item  Y  of  Appendix  B  also  contains  details  on  this  file.  The 
FINAL/REPORT  program  will  simply  read  this  file  and  write  the 
contents  out. 

It  should  be  noted  that  the  ELCON  program  discussed  in  Chapter  2  has 
the  option  of  executing  without  producing  this  file.  If  this  is  the  case, 
the  FINAL/REPORT  program  will  not  execute  because  it  expects  the 
file  to  exist.  Figure  III.  19.5  presents  an  example  of  this  data  file. 

o  RATES-XX/MONTHLY-WOL  -  This  file  details  for  each  major  item  of 
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equipment  in  the  study  in-theater  monthly  losses  per  WARF  set  exclud¬ 
ing  LOG,  depot  and  inter-theater  logistic  losses.  Figure  III.  19.6 
presents  the  file  layout  and  sample  data  for  this  file. 

o  RATES-XX/MONTHLY-WL  -  This  file  details  for  each  major  item  in  the 
study  total  monthly  loss  rates  per  WARF  set  including  LOC,  depot  and 
inter-theater  logistic  losses.  Figure  3.19.7  presents  tne  file  layout  and 
example  of  the  data  for  this  file. 

I9.I.2.B  OUTPUT  DATA  AND  DATA  FILES:  The  only  output  from  this  utility  is 
the  FINAL/RePOPT.  TKIs  report  is  a  formatted,  printed  summary  of  daily  loss 
rates  of  the  Materiel  Postprocessor  (MPP)  and  the  ELCON.  The  report  is  divided 
into  two  sections.  The  first  section  is  a  replay  of  the  RATES-XX/SEC-I  file 
which  documents  the  data  that  was  provided  to  ELCON  from  the  CONTROL-XX 
file.  It  should  be  noted  again  that  in  order  for  the  FINAL./REPORT  to  run  this 
RATES-XX/SEC-I  file  must  exist.  In  other  words  when  ELCON  was  run,  the  Print 
Indicator  field,  cols.  31-35,  in  the  Run  Parameters  Record  of  the  CONTROL-XX 
file  must  not  be  set  to  "0". 


The  second  portion  of  this  report  will  provide  for  each  major  item  of  equipment  in 
the  study  a  period  by  period  summary  of  its  daily  loss  rates  and  quantity  authori¬ 
zation  levels.  This  portion  of  the  report  assumes  the  first  eight  WARF  sets  used 
by  the  ELCON  as  specified  in  the  CONTROL-XX  file  were: 


WARF  SET  PERIOD 


1 

2 

3 

4 

5 

6 

7 

8 

WARF  sets  beyond  8  will  be  ignored, 
remaining  periods  will  be  zero. 


I  st  1 5  Days 
2nd  1 5  Days 
I  st  30  Days 
2nd  30  Days 
3rd  30  Days 
4th  30  Days 
5th  30  Days 
6th  30  Days 

If  less  than  8  WARF  sets  are  specified  the 


For  each  item  of  equipment  in  this  section  of  the  report  three  lines  of  information 
are  used.  The  first  line  details  daily  loss  rates  for  the  item  without  LOC,  depot 
and  inter-theater  logistic  losses;  the  second  line  details  daily  loss  rates  for  each 
period  including  shipping  losses;  the  final  line  denotes  the  average  per  period 
quantity  authorized  for  this  item. 

It  should  be  emphasized  that  loss  rates  expressed  in  this  report  are  daily  loss  rates 
rather  than  monthly  loss  calculated  in  the  ELCON.  To  get  these  daily  loss  rates 
the  monthly  loss  rates  are  simply  divided  by  30. 

Figure  III. 9. 8  presents  an  example  of  the  FINAL/REPORT  output. 
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19.1.2.C  VARIABLE  DICTIONARY: 


The  following 
utility. 

NAME 

COPY 

LIN 

NOMEN 

MORATE 

DAYRAT 

DUMMY 

IQUAN 

QUAN 


section  identifies  and  defines  the  various  variables  used  in  this 


DEFINITION 


This  variable  is  used  as  an  arra ,  by  the  utility  to  copy 
and  format  data  from  the  RATES-XX/SEC-1  input  file 
directly  to  the  main  output  file  FINAL-REPORT-XX. 

This  6  character  alphanumeric  variable  will  contain 
the  Line  Code  of  the  current  item  under  examination. 
This  line  code  identifies  the  item  within  the  system. 
This  value  is  read  from  RATES-XX/MONTHLY-WOL 
input  file  and  written  directly  to  the  FINAL/REPORT 
output  file. 

This  6  character  alphanumeric  variable  is  used  as  an 
array  in  the  utility  of  5  occurrences.  The  contents  of 
the  array  will  contain  the  30  character  nomenclature 
or  description  of  the  item  of  equipment  being  anal¬ 
yzed.  This  data  will  be  read  from  RATES-XX/- 
MONTH-LY-WOL  input  file  and  written  directly  to 
the  FINAL/REPORT-XX  output  file. 

This  is  an  array  with  8  occurrences  used  by  the  utility 
to  hold  the  monthly  attrition  rates  of  the  item  of 
equipment  being  currently  analyzed.  This  data  is  read 
from  the  RATES-XX/MONTHLY-WOL. 

This  is  an  array  of  8  occurrences  used  by  the  utility  to 
store  the  results  of  the  calculations  to  translate  the 
monthly  loss  rates.  This  is  accomplished  by  dividing 
each  MORATE  value  by  30. 

An  array  used  to  read  past  data  from  the  input  file, 
ITMID/FINAL,that  is  not  required  by  the  utility. 

An  integer  array  used  by  the  utility  stores  the  author¬ 
ized  quantities  of  the  current  item  under  analysis. 
This  data  is  read  from  the  ITMID/FINAL  input  file. 

This  is  an  array  used  by  the  utility  to  store  the  average 
authorized  quantities  per  time  period  of  the  study.  In 
general  these  values  are  calculated  by  dividing  the  sum 
of  this  consecutive  IQUAN  values  by  2. 
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II,LLL,K1, 
lO,Lt,KM,LN, 
IP, IQ, IR, IT 


These  various  integers  are  used  as  subscripts  in  the 
utility. 


19.2  OPERATING  ENVIRONMENT;  This  program  is  implemented  on  the 
EXECUTIVE-8  operating  system. 

19.2.1  SUPPORT  SOFTWARE?  This  report  utility  is  written  in  FORTRAN  IV 
and  requires  the  FORTRAN  IV  compiler  in  addition  to  the  UNIVAC  1100/82 
system  facilities. 

19.2.2  I/O  DEVICES!  This  report  utility  uses  as  input  several  files  which  reside 
on  disk.  The  utility  will  produce  a  report  first  presumably  on  disk  and  then  routed 
to  a  line  printer  for  final  output.  Refer  to  Volume  l  for  the  runstream. 

19.3  MAINTENANCE  PROCEDURES:  This  program  is  maintained  by  the 
MPP  analyst. 

19.3.1  PROGRAMMING  CONVENTIONS*.  The  utility  is  written  in  FORTRAN 
IV  and  adheres  to  FORTRAN  programming  conventions.  While  this  is  a  report 
program,  no  precautions  have  been  taken  to  accomodate  page  breaks  or  page 
numbering. 

19.3.2  INTERNAL  ERROR  ROUTINES:  This  report  utility  has  no  explicit  error 
handling  facilities.  As  a  result  only  system  detected  errors  will  be  identified  and 
documented.  Reference  to  system  documentation  will  be  required  to  correct 
errors. 
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/  READ 
MORATE(Nt) 


UNELASSIFlEObbtFUC  NAMttB2X0T  ELEMENT  name tFiNAL/RrPORT**bUNCLAssiF  ieo 


1 

2 

3 

b 

s 

b 

7 

6 

9 

10 

11 

12 

11 

m 

It. 

lb 

17 

16 

19 

?0 

?1 

22 

23 

2b 

25 

2b 

27 

?a 

29 

10 

11 

12 

11 

m 

55 

lb 

17 

18 
19 
*0 
n 
"2 
bl 
bb 
95 
tb 
b? 
be 
bV 

50 

51 

52 

53 

'S 

Sb 

£•/ 


Cb* 

C** 

Cbb 

c** 

c** 

Cbb 

C*b 

C** 

C*b 

C*b 

C** 

Cbb 

Cb* 

Cb* 

Cb* 

C** 

C*b 

C** 

C** 

C*b 

C** 

C** 

C** 

C*b 

Cbb 

C** 

Cb* 

Cbb 


••THIS  PR0GPAM  IS  WRITTEN  IN  FORTRAN  V* 


••PURPOSE  OF  PROGRAM  t 

b* 

••THIS  UTILITY  IS  DESIGNED  TO  TAmE  ThE  OUTPUT  OF  FtCON 

•  •AND  PROOUCE  A  FINAL  REPORT  OF  WARF  OAKY  ATR1TI0N  RATES. 

•  •EACH  LIN  COPE  WILL  HAVE  THREE  LINES  OF  DATA.  t HE  FIRST  LINE 
••WILL  HAVE  ATTRITION  RAtES  WITHOUT  SHIPPING  LOSSES  AND  THE 
••SECOND  WITH  SHIPPING  LOSSES  INCLUDED  AND  THE  LAST  LINE  WILL 
••HAVE  THE  AVERAGE  AUTHER12E0  QUANTITY  OF  THE  LlN  CODE  IN 
••THEATER  FOR  tACH  TIME  PERIOD. 

** bbbb* •***•**••••*•******* bbbbbbb* ******* •*•«*♦•«*»•**** bbbbbi 


••VARIABLE  DICTIONARY 


••VARIABLE  NAME 

•  *N0 

•  •COPY!  1  * 

••LIN 

bbbiOME  N  1  J1 
•bHORATE (K> 
bbOAVRAKLI 
bbCUANI 1 1 
bbOUMMY  1 1 1 


CCFINtT ION 
NUMBER  OF  CCH  RUN 

USED  TO  COPY  LINE  OF  UNEFFECTEO  DATA 
LtN  CODE 

NOMENCLATURE  OF  EACH  LIN  CODE 
MONTHLY  ATTRIYION  RATE 
DAILY  ATTRITION  RATE 

AVERACiE  autheri  ?eo  toe  ouantitv  by  PERIOD 
DUMMY  READ  VARIABLE 


700 

99 

801 


98 

701 

705 


50 

702 


55 


1101 


30 


7C3 


900 


01  MENS  ION  COP  Y I  2 1  1  ,0AYRATI8I,0UMMY  ()2I  .aUANUt  tiaUANT  8  I 
REAL  LlN,N0MENl51,M«RATEm 
WRITE  17,7001 

F0RMATI15X,’  DAILY  ATTRITION  R  ATE  S  * / I 

RE  ADIS. HOI  ,EnD:»B  MCORYO  1 1,11  =  1, 7l» 

F0RHATI21A6 1 

WRITE  I  7,8  0  111  COPY  I LLL ),  ILL =1 ,711 

00  TO  99 

WRITEI7.701I 

F0RMATI9I71  ,1SX, 'DAILY  ATTRITION  PATES  WITHOUT  t  WITH  LOG  LOSSES’! 
WRITE  17,705) 

FORMA  TUX,  ’LIN’  tbX, ’NOMENCLATURE*  .25X,’lsnS'»SXt*2N0!S’, 

I 5X,’ I  ST  30’  ,5X,’2N03n’,SX, ’3RD  10 • , 5 X , * b TH 30* , 5X , ’5TH10*,5X, 
2’6:h30’///1 
GO  TO  55 
WRITE  17,707) 

FORMA  TUX,  ’UN’  ,4X,  ’NOMENCLATURE  *,25X,’1  5715  ’  »SX, ’2ND  1 5  *  , 

15X.* 1ST  3D’ ,5A, ’2ND  30’  b X ,  ’3RD  10  ’  , 5 X  ,  » b TH ID  ’  , 5X , ’5 TH5D  ,5X, 

2*bTH3Cl  ’////  ) 

00  20  JJ-1,13 

RE AO I  1 1  ,ll0l,CN0r97)LIN,»NLMENim ) ,M I s 1 , 5 ) . I MOR AT E IKK ) »KH= 1 ,8 1 
FORMAT IlX.Af , lX,5Ab,bFb.2,/> 

DO  30  JJJ  =  1  ,d 

0  AYR  AT  I  DJ.IHIMORATEI  JJJ  )/33.0  )/  IQD.O 
CONTINUE 

WRITEI7,703)LlN,IN0MENIMJ),Kjrl,5|,f0AYRATILI),Ll-l,8) 

F0RMATIlX,Af,lX,5Ab,lX,’W/0L*,FT.5,TIF10.5i> 

READI9,900,r  nOi97 ) I MOR  A TE IM ) ,Nl-l ,8 ) 

FORMAT) 38X,PFb.2,/) 
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iNCLASSIF IED***FILE  NA«E:82XQT  ELEMENT  NAME i F I NA LFR EPOR T***UNCLA SSI F I EO 
58:  DO  m3  km; 1 ,8 

59:  CAYRATIKM»=tMORATEIKM>/ 30.01/ 130.0 

60:90  CONTINUE 

6  1:  WRITE  17,704  HDAYRATILN)  ,LN;1  ,B  I 

62:704  FORMAT  I39X,  •*  f  ,r7. 5, 7IFI0.SH 

<3:  RE  A  D  (  lU,10OC,EN0  =  97M0UMMYt  IP>,IP;1,12> 

64:1000  FORMAT  I 12A6) 

65:  RFACM  lC,1001,END:97)(lUUAN(IQ),IQ:i,2) >1 IQUAN(IZ) ,IZ=4,PI 

66:1001  FORMAT  <2I7,ci7l 

67:  ICUAN(3l  =  (IGUAN<lMI0UAN(?n/2 

6b:  DO  83  KF=1,P 

69:  0UAN1KF  l=IilUAN«KF  » 

70:80  CONTINUE 

71:  wRITE  17,7  15  HQUANURl  .1R=  1,9 » 

72:715  F0RMAT119X,  *AVG  AUTH  THEATER  OT  Y  •  ,  IX  ,  B  « F  9 . 1  ,  1  *  )  /  » 

73:  00  63  IS=1,7 

74:  READ»10,10CCtENo:97MOUMMVilTI,Ii;it12» 

75:60  CONTINUE 

76:20  CONTINUE 

77:  GO  TO  50 

78:97  STOP 

79:  END 


Figure  III.  19.3  (Cont) 
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UNCLASSIFIED  •  ••ERA  HPLt  OF  THE  OUTPUT  OF  UTILITY  ITMID/REC-AN»«UNCLASSIFItD 


t: 

AO  3198 

AK  VEH  M218  GH 

EG  P1A 

0  522 

so  0  : 

2: 

SN 

6N 

NN 

58 

78 

88 

88 

3: 

.00 

.00 

.00 

.80 

.20 

NT 

.00 

.00 

.00 

.80 

.20 

5: 

.00 

.00 

.00 

.80 

.20 

6: 

.00 

.00 

.00 

.80 

.20 

7*. 

.00 

.00 

.00 

.80 

.20 

s: 

.00 

.00 

.00 

.80 

.20 

9: 

.00 

.00 

.00 

.75 

.25 

30  0 

10: 

AIN?  52 

AOAF 

'  TEST 

CAMERA  LM17  8 

01636 

11: 

10 

16 

16 

17 

1? 

17 

17 

12: 

.00 

.00 

.20 

.80 

.00 

is: 

.00 

.00 

.20 

.80 

.00 

in: 

.00 

.00 

.20 

.80 

.00 

1ST 

.00 

.00 

.15 

.85 

.00 

16: 

.00 

.00 

.  15 

.85 

.00 

17: 

.00 

.00 

.  35 

.65 

.00 

is : 

.00 

.00 

.35 

.65 

.00 

19: 

A2  2N96 

AIMING  Cl 

RCLE 

M2  U/E 

01636 

30  0 

20: 

6615 

6699 

8820 

8823 

8823 

8823  8978 

21: 

.25 

.25 

.50 

.00 

.00 

22: 

.25 

.25 

.50 

.00 

.00 

23: 

.25 

.25 

.50 

.00 

.00 

2n: 

.25 

.25 

.50 

.00 

.00 

25 : 

.25 

.25 

.50 

.00 

.00 

26: 

.25 

.25 

.50 

.00 

.00 

27: 

.25 

.25 

.50 

.00 

.00 

30  0 

28: 

A2  3T70  AIR 

CONO 

FL/UNDW  6000  8 

01B33 

29: 

f 

I 

0 

0 

0 

0 

0 

0 

30 : 

.00 

.00 

.00 

.00 

.00 

31 : 

.00 

.00 

.00 

.00 

.00 

12: 

.00 

.00 

.00 

.00 

.00 

13: 

.00 

.00 

.00 

.00 

.00 

3n: 

.00 

.00 

.00 

.00 

.00 

35 : 

.00 

.00 

.00 

.00 

.00 

36: 

.00 

.00 

.00 

.00 

.00 

37: 

A2  38  26  AIR 

CONO 

F/UA 

9000  BTU 

01833 

30  0 

38: 

8  89 

99  3 

9  98 

998 

998 

993 

998 

39: 

.00 

.00 

.25 

.25 

.50 

no: 

.00 

.00 

.25 

.25 

.50 

ni: 

.00 

.00 

.25 

.25 

.50 

N2: 

.00 

.00 

.25 

.25 

.SO 

93: 

.00 

.00 

.25 

.25 

.50 

nn: 

.00 

.00 

.25 

.25 

<50 

ns: 

.00 

.00 

.25 

.25 

.  50 

30  0 

N6: 

A2N0NN  AIR 

CONO 

18000  BTU 

01833 

N7: 

S3 

53 

53 

55 

55 

55 

55 

nb: 

.00 

.00 

.00 

.50 

.50 

ns: 

.00 

.00 

.00 

.50 

.50 

so: 

.00 

.00 

.00 

.50 

.50 

si : 

.00 

.00 

.00 

.50 

.50 

S2: 

.00 

.00 

.00 

.30 

.70 

53: 

.00 

.00 

.00 

.30 

.70 

sn: 

.00 

.00 

.00 

.30 

.70 

ss: 

A2N318  AIR 

CONO 

18000  BTU 

01833 

30  0 

56 : 

15 

25 

N2 

57 

63 

83 

97 

57: 

.00 

.00 

.25 

.75 

.00 
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UNCLASSIFIED  •••E*A*PU  OF  RA  rt  S-  XX  /SrC-l  OUTPUT  DATA  F«C*1  UTILITY  TLCON/J 

t:  TEMPORARY  CONTROL  DATA  FILE  WARF  P0BU2OCC 
2: 

3: 

IS 

s: 

6?  NPER  KXITH  •  CEH  CLASSES  *WAR F  SETS 
7 :  ?  6  9  10 

9: 

9: 

10:  OAFS  PER  P ER 100 

u:  15  15  30  30  30  3  0  30 

Ml 

13: 

14:  first  and  last  period  for  each  warf  set 
15!  1  l 

16:  2  2 

17:  1  2 

18:  3  3 

19  5  A  4 

20:  5  3 

2i:  6  « 

22:  7  7 

23:  1  4 

2i:  5  7 

23: 

26 : 

27:  AIR  LOSS  RATE  9Y  PER  10  0 

21 :  *0  SO  .050  .030  *010  *010  .000  .000 

29 : 

30 : 

3i:  SEA  LOSS  RATE  9Y  PFRIOO 

32:  .ISO  .ISO  .230  *100  *050  *020  .000 

33: 

3*» : 

35:  LOC  LOSS  RATE  BY  PERIOO 

36:  .ISO  .150  .100  .100  .050  .050  .030 


38: 

39:  AVERAGE  LAR3E  UNITS  8Y  PERIOO 

40 :  48. 1C  31  .50  52.00  52.00  52.00  57.00  S2.0Q 


41  • 

42S 

43:  FRACTION  of  FORCE  BY  POSTURE  BY  PERIOD 


44: 

ATTACK 

OE  ft  ND 

WITH  ORAM 

IN  ACTIVE 

4$: 

•  0000 

.1»10 

.0590 

•  8000 

46: 

•  23  50 

.1550 

.0500 

.6000 

47: 

•  2000 

.1550 

.0050 

.6400 

48 : 

•  1000 

.0  55  0 

•  1030 

.B4on 

49: 

•  0050 

.0  550 

•  1400 

.8000 

so: 

•  3030 

.0050 

.0000 

.6900 

si: 

.55  50 

.0000 

.0000 

•  44S0 

32: 

33: 

34: 

ARTY  KILLS  14  PER  OAYJ  BY 

VULN  CLASS  8Y 

POSTURE 

55 : 

56: 

.000 

.994 

.211 

1,666  .222 

.111 

.666 

.090 

•  138 

•  899 

.374 

57: 

.224 

•  691 

.264 

.714  .999 

.744 

.339 

•  107 

•  644 

•  971 

.100 

si: 

59: 

•  100 

.992 

.600 

2.744  .378 

.000 

.299 

•  000 

•  704 

•  000 

2.192 

60 : 

7.602 

3.339 

•  668 

1.730  1.199 

•  502 

.071 

•  SIS 

•  S97 

•  000 

•  080 

6i: 

62: 

•  200 

2.  SOT 

1.254 

.  927  .494 

•  000 

.633 

•  000 

•  283 

•  284 

1.609 

63: 

6.753 

3.355 

.893 

3.001  1.678 

1.789 

•  465 

.898 

.366 

•  000 

•  090 

6«: 

G3 : 

•  05Q 

.255 

.064 

•  335  .889 

.010 

•  008 

•  350 

.823 

•  760 

•  064 

66: 

3.142 

7.460 

•  33  3 

•  830  .973 

.349 

.077 

.050 

.778 

.000 

•  080 

67: 

6i: 

69: 


70:  ARTY  SCALN5  FACTORS  BY  PERIOO 

7i:  *649  .764  .980  1*000  .950  .485  .196 

72! 

73! 

74:  CEM  KILLS  II  PER  30  CAYS»  8Y  CLASS  9Y  PERIOD 
75: 


76: 

77: 

64.000 

1.4QQ 

•  000 

•  000 

10.000 

24,000 

36.000 

72.000 

7.800 

79: 

79: 

56.000 

1.400 

.000 

2.000 

20.000 

34.000 

52.000 

60.000 

4.200 

40 : 

si : 

50.000 

.900 

.000 

2.000 

15.000 

24.000 

37.000 

28.000 

2.300 

32: 
33 : 

27.000 

•soo 

•  000 

•  000 

6.000 

18.000 

25.000 

10.000 

.600 

94: 

93 : 

19.000 

•  400 

.000 

•  000 

5.000 

13.000 

16.000 

4.000 

•  500 

is: 

37: 

70.000 

.300 

.000 

4.000 

4.000 

14.000 

33.000 

3.000 

.100 

99: 

17.000 

.100 

.000 

2.000 

1*000 

7.000 

13.000 

1.000 

•  ion 

Figure  III.  19. 5 
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UNCLASSIFIED  •*  •£  XAHPLC  OF  RATES- XX  /NON  THLY-WOL  OUTPUT  DATA  FRON  UTILITY  CLCON/3 


1 

AO  3198 

AK  VEH  N218  OH  CO  P1A 

2. *3 

3.21 

2.85 

2. AO 

3.1A 

3.11 

2.20 

3.03 

2.05 

2.00 

2 

3 

Al  A7S2 

AOAP  TEST  CAMERA  LN1V0 

o.oa 

10.65 

9.6  A 

9.79 

10. A8 

10.26 

0.00 

T.06 

10.00 

8. A  7 

A 

5 

A2  2A96 

AIHINO  CIRCLF  M2  M/E 

30.73 

A0.37 

35.50 

39.79 

A9.3A 

A6.76 

21.56 

io. aa 

A2.10 

20.06 

6 

T 

A2  3770 

AIR  CONO  FL/UNOU  6000  0 

.Cti 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.0  0 

6 

9 

10 

11 

*2  3921 

AIR  CONO  F/WA  9000  8T  U 

1.15 

1.7T 

1.A9 

l.AA 

2.1A 

2.10 

.95 

.07 

1.69 

1.31 

A2A0AA 

AIR  CONO  16000  OTU 

.60 

.79 

.67 

•  A7 

.03 

•  7A 

.33 

•  A7 

.66 

.51 

Figure  III.  19.6 
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UNCLASSIFIED*»«EXANPLE  OF  .ME  RATE  S-XX/NONTHLY-ML  OUTPUT  OATA  FROM  Ei.CON/3 


IS 

*0  3138 

AK  VEH  M2 18  ON  E0  PI* 

2.83 

8. 32 

5.3* 

3.27 

11.82 

6.57 

3.15 

3.31 

7.18 

*.21 

2 : 
j: 

*1  *7  32 

»OAP  TEST  CAMERA  LM17  8 

3.70 

2*  .2  3 

18.63 

13.13 

17.** 

12.51 

3.1* 

7.8* 

16.5* 

3.77 

*: 

ss 

*2  2*  36 

AIM  IN 0  CIRCLE  M2  U/E 

3T.08 

*3.58 

*3.3* 

57.60 

73.8* 

56.38 

2*.  38 

20.51 

53.07 

33.28 

s ! 
t: 

*2  3770 

AIR  COMO  FI /W  NOW  6000  8 

.00 

.00 

.00 

.•O 

■  00 

.00 

.00 

.00 

.00 

.00 

s  * 

9! 

*2  3828 

AIR  CONO  F/WA  3000  8T  U 

1.36 

5.25 

3.*1 

1.3* 

3.13 

2. *3 

1.06 

.3* 

2.83 

1  .*  7 

io : 
ii : 

*2  *0*8 

AIR  CONO  18000  RTU 

.71 

.87 

.73 

•62 

2.31 

.37 

.50 

1.21 

.58 

iz : 
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P.  Wartime  Replacement  Factors— FY  78-82  (WARF  78-82),  Voi  II,  Main 
Report,  CAA  (CAA-5R-78-13),  Oct  78. 

Q.  Wartime  Requirements  for  Ammunition  and  Materiel,  Fy  81-85.  (AMMO 
P-85/WARF-85),  Vol.  I,  Main  Report,  CAA  (CAA-SR-79-1),  Feb  79. 

R.  Wartime  Requirements  for  Ammunition  and  Materiel,  FY  82-86  (AMMO 
P-86/WARF-85),  Vol  I,  Main  Report,  CAA. 

S.  SIMSCRIPT  II. 5  Programming  Language,  Kiviat,  et.al;  edited  by  E.C. 
Russell,  1975,  CACI,  Inc.,  12011  San  Vicente  Blvd,  Los  Angeles,  CA 
90049 

T.  SIMSCRIPT  II. 5  Reference  Handbook,  1976,  CACI,  Inc.,  12011  San 
Vicente  Blvd,  Los  Angeles,  CA  90049 

U.  SIMSCRIPT  II.5  User’s  Manual  -  UNIVAC  1100  Series  Computer  Systems 
1977,  CACI,  Inc.,  12011  San  Vicente  Blvd,  Los  Angeles,  CA  90049. 

V.  Target  Acquisition  Model,  USACAA,  Documentation  CAA-D-74-2, 
dated  December  1974. 

W.  Red  Artillery  Model,  USACAA,  Documentation  CAA-D-74-2,  dated 
December  1974. 

X.  Sperry  UNIVAC  1100  Series  Executive  System  Programmer  Reference 
Manual,  Volumes  1  -  4,  UP  4144.1  through  UP  4144.4,  1975  Sperry  Rand 
Corporation,  with  updates. 

Y.  Force  Analysis  Simulation  of  Theater  Administrative  and  Logistics 
Support  Model  (FASTALS),  prepared  for  the  U.S.  Army  Logistics  Center 
by  Computer  Sciences  Corporation,  April  1980,  Contract  GS-045-22715. 
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Appendix  B 

Terms  and  Abbreviations 


APP  Ammunition  Post  Processor  -  A  related  group  of  computer 

software  programs  that  is  a  part  of  the  WARRAMP  methodology; 
used  to  compute  the  expected  consumption  of  ammunition  of 
selected  calibres  of  a  force  in  a  conflict. 

CEM  Concepts  Evaluation  Model  -  A  low  resolution  theater  combat 

model  that  simulates  the  combat  between  two  opponent  forces 
over  a  specific  period  of  time  producing  force  results. 

COSAGE  Combat  Sample  Generator,  a  high  resolution  model  that  simulates 
tactical  combat  between  a  red  and  blue  force;  a  production  model 
that  produces  force  on  force  results. 

ELCON  Equipment  Loss  Consolidator. 

ESD  Equivalent  Stylized  Day  of  (Wartime)  combat  between  a  postured 

blue  and  red  force;  used  to  provide  an  activity  comparison 
between  forces. 

HMS  Heavy  Materiel  Supply  Units  (Companies). 

ITMID  Item  Identification  File. 

K-KILL  A  catastrophic  kill  of  the  item  (target)  rendering  it  incapable  of 

returning  fire  or  movement  and  is  non-repairable. 

LA  Lethal  area  of  indirect  fire  (area  type)  weapon  systems. 

LEA  Logistics  Evaluation  Agency. 

LIN  Line  Item  Number  (Code)  -  LINCODE. 

LOC  Lines  of  Communications. 

MIE  Major  items  of  equipment. 

M-KILL  A  hit  on  an  item  (target)  that  renders  it  immobile,  but  repairable 

and  capable  of  returning  fire. 

ODCSOPS  Office  of  the  Deputy  Chief  of  Staff  (Army)  for  Operations. 

PK  Probability  of  Kill. 

RAM  Red  Artillery  Model. 

RTD  Returned  To  Duty;  personnel  or  repaired  equipment. 
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Single  Shot  Probability  oi  Kill. 

SRC  Standard  Requirements  Code. 

TAM  Target  Acquisition  Model. 

TOE  Table  of  Organization  and  Equipment. 

TRCONS  Theater  Rate  Consolidation  data  file. 

TRMAP  Theater  Rate  Mapping  data  file. 

TRM  Theater  Rates  Model,  used  to  simulate  a  theater  conflict, 

generating  stylized  combat  periods;  used  to  compute  ammunition 
consumption  rates  for  several  weapon  -  munition  combinations. 

WARF  Wartime  Replacement  Factors,  also  known  as  Wartime  Active 

replacement  factors.  Rates  of  loss  or  specified  periods  or  time 
increments  for  selected  combat  materiel  items. 

WIMP  WARF  Intermediate  Materiel  Processor. 
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Appendix  C 
Distribution 


Addressee 

Deputy  Under  Secretary  of  the  Army 
(Operations  Research) 

HQ  DA,  Room  2E261 
Pentagon  Building 
Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Operations 
and  Plans  (DAMO-ZD) 

Room  3A538 
Pentagon  Building 
Washington,  DC  20310 

Commander 

US  Army  Operational  Test  and 
Evaluation  Agency 
5600  Columbia  Pike 
Falls  Church,  Virginia  22041 

Commander 

US  Army  Training  and  Doctrine  Command 
(TRADOC) 

Fort  Monroe,  Virginia  23651 
Commander 

US  Army  Combined  Arms  Combat 
Developments  Activity 
Building  574 

Fort  Leavenworth,  Kansas  66027 
Commander 

US  Army  Combat  Developments 
Experimentation  Command 
Fort  Ord,  California  93941 

Commander 
HQ  USAREUR  and  7 A 
ATTN:  DCSRM 
APONY  09403 

Defense  Documentation  Center  for 
Scientific  and  Technical  Information 
Building  5 
Cameron  Station 
Alexandria,  Virginia  22314 


The  Army  Central  Library  (ASDIRS)  1 

Room  IA526 
Pentagon  Building 
Washington,  DC  20310 

Local 


Chief,  AD,  ATTN:  Library  Branch  2 

Director,  FA  2 

Director,  3F  2 

Director  SM  2 

Director,  MC  12 

Director,  RQ  15 
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